|
|
Postada em 17/08/2005 17:44 hs
Olá
Estou tentando enviar um e-mail para vários destinatários utilizando o controle MAPI e estou tendo problemas.
Não estou conseguindo enviar a mensagem para vários destinatários, sendo que aparece o erro
"Unspecified Failure has ocurred"
Alguém poderia me ajudar?
Obrigado
|
|
|
|
|
|
Mr.Data
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/08/2005 17:47 hs
Poste o código Luciano, e se possível a configuração do que está sendo tentado (tipo de servidor de envio, por autenticação, etc), que através dele será mais fácil identificar o que está ocorrendo. 
[ ]'s -----------------------------------------------------------------------------------------------------------------  Juliano Lopes - Coordenador de Projetos / Arquiteto de Software
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 17/08/2005 17:50 hs
Aí vai o código da função:
Private Function fnc_EnviarEMails() As Boolean
Dim fsoArq As New FileSystemObject
Dim txtsEndereco As TextStream
Dim varArquivo As Variant
Dim strMailling As String, strEndereco As String
mapiSessionMailler.UserName = Trim(txtUsuario.Text)
mapiSessionMailler.Password = Trim(txtSenha.Text)
mapiSessionMailler.SignOn
mapiMSGMailler.SessionID = mapiSessionMailler.SessionID
Set txtsEndereco = fsoArq.OpenTextFile(txtArqEnderecos.Text, ForReading)
With txtsEndereco
Do While .AtEndOfStream = False
strEndereco = .ReadLine
If strEndereco <> "" Then
strMailling = strMailling & strEndereco & ";"
End If
Loop
End With
mapiMSGMailler.Compose
mapiMSGMailler.RecipAddress = strMailling 'string que recebe os endereços
mapiMSGMailler.AddressResolveUI = False
mapiMSGMailler.MsgSubject = txtAssunto.Text
mapiMSGMailler.MsgNoteText = rtxtMensagem.Text
mapiMSGMailler.Send False
mapiSessionMailler.SignOff
txtsEndereco.Close
Set txtsEndereco = Nothing
Set fsoArq = Nothing
End Function
|
|
|
|
Mr.Data
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/08/2005 17:51 hs
Luciano, vc sabe precisar em qual ponto ocorre o erro? É durante o evento Send?
[ ]'s ----------------------------------------------------------------------------------------------------------------- Juliano Lopes - Coordenador de Projetos / Arquiteto de Software
|
|
|
|
|
|
Postada em 17/08/2005 17:52 hs
Exato!!!
|
|
|
|
Mr.Data
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/08/2005 18:19 hs
Este problema ocorre, pelo que vi pela net, quando você: * Tenta mandar arquivos anexados ou * Tenta enviar para múltiplos recipientes. O endereço abaixo lista o sintoma e a solução do problema (pelo menos teoricamente, hehehehe). Teste e me diga: 
[ ]'s ----------------------------------------------------------------------------------------------------------------- Juliano Lopes - Coordenador de Projetos / Arquiteto de Software
|
|
|
|
