USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ENVIAR E-MAIL UTILIZANDO MAPI
Luciano Lazo
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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. Emoções
 

[ ]'s

-----------------------------------------------------------------------------------------------------------------

Emoções Juliano Lopes - Coordenador de Projetos / Arquiteto de Software Emoções

TÓPICO EDITADO
 
Luciano Lazo
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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

-----------------------------------------------------------------------------------------------------------------

Emoções Juliano Lopes - Coordenador de Projetos / Arquiteto de Software Emoções

   
Luciano Lazo
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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: Emoções
 
 

[ ]'s

-----------------------------------------------------------------------------------------------------------------

Emoções Juliano Lopes - Coordenador de Projetos / Arquiteto de Software Emoções

   
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página