Postada em 16/05/2008 11:40 hs
Bom dia,
É seguinte, tenho um projeto que envia e-mails MAPI através do VB6. O problema é que só consigo enviar esses e-mails quando o Outlook Express é o programa de e-mail padrão. Quando o Outlook do Office é o padrão, acontece que dá erro no Send(na linha: MAPIMessages2.Send). Será algum componente faltando?
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
MsgBox " Foram enviados: " & I & " e-mails ! ", vbInformation
Desde já agradeço.
Pedro Henrique.
|
