Postada em 21/05/2008 00:12 hs
Boa noite pessoal,
Tenho um projeto que envia emails MAPI pelo vb. Os emails são enviados através dos contatos em um banco de dados access. O programa funciona certinho. Só que agora preciso fazer um histórico de tudo que for enviado. Ou seja, ao enviar o e-mail, salvar nesse banco nos campos empresa, assunto, anexo, mensagem. E, quando solicitado pelo usuário, mostrar o histórico numa FlexGrid, por exemplo. Ou outra ferramenta...
Meu código(as linhas comentadas são o que estava tentando fazer para salvar no bd):
Private Sub cmdenviar_Click()
Dim I As Integer
I = 0
If CmbEmpresa = "" Then
MsgBox " Selecione uma Empresa para prosseguir ! ", vbInformation
CmbEmpresa.SetFocus
Exit Sub
End If
If Trim(txt_assunto) = "" Then
MsgBox " Digite o Assunto da mensagem ! ", vbInformation
txt_assunto.SetFocus
Exit Sub
End If
If Trim(txt_mensagem) = "" Then
MsgBox " Digite o corpo de texto da Mensagem ! ", vbInformation
txt_mensagem.SetFocus
Exit Sub
End If
If MsgBox(" Deseja verificar Ortografia do Corpo de Texto da Mensagem ? ", vbYesNo) = vbYes Then
Cmdortograf_Click
End If
RS.Open "Select * From TblContato Where CodEmpresa =" & CodEmpresa & "", BD, 3, 3
MAPISession2.SignOn
MAPIMessages2.SessionID = MAPISession2.SessionID
RS.MoveMin
Do While Not RS.EOF
MAPIMessages2.Compose
MAPIMessages2.RecipAddress = RS("Email")
MAPIMessages2.MsgSubject = txt_assunto.Text
MAPIMessages2.MsgNoteText = txt_mensagem.Text
If txt_anexo <> Empty Then
'______Tipo de dados a ser anexado
MAPIMessages2.AttachmentType = mapData
'______Endereço do anexo
MAPIMessages2.AttachmentPathName = txt_anexo.Text
End If
MAPIMessages2.Send
I = I + 1
RS.MoveNext
Loop
' RS "Select * From TblHistorico", BD, 3, 3
' RS.AddNew
' RS("Assunto") = txt_assunto.Text
' RS("Anexo") = txt_anexo.Text
' RS("Mensagem") = txt_mensagem.Text
' RS("Data_Envio") = txt_dataenvio.Text
' RS.Update
'
' RS.Close
' Set RS = Nothing
MsgBox " Foram enviados: " & I & " e-mails ! ", vbInformation
End Sub
|
