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

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Envio de mensagem e arquivo anexo via OutLook
Postada em 14/8/2003 por Ricardo         
Obs.: - Caso envie algum banco ex.: MDB verifique se o mesmo esta fechado na aplicação.
- Componente: Microsoft MAPI Controls 6.0.
- O OutLook tem que estar instalado e configurado com a conta.

Private Sub EnviaEmail_Click()
  
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
    
'////////////////////////////////////////
'// Informa o email, se enviar para mais de 1 email é separar com(;)e ir informando
'////////////////////////////////////////
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipAddress = "teste@teste.com.br"
MAPIMessages1.RecipType = 1
        
'////////////////////////////////////////
'// Assunto
'////////////////////////////////////////
MAPIMessages1.MsgSubject = UCase("Teste Sistema Sucateiro")
'////////////////////////////////////////
'// Conteudo da mens
'////////////////////////////////////////
MAPIMessages1.MsgNoteText = "Testando envio"
'////////////////////////////////////////
'// Informa anexo
'////////////////////////////////////////
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPathName = App.Path & "\teste.txt"
MAPIMessages1.AttachmentPosition = 0
'////////////////////////////////////////////////
'// Se existir outros anexos alterar os valores
'////////////////////////////////////////////////
'MAPIMessages1.AttachmentIndex = 1
'MAPIMessages1.AttachmentPathName = app.path & "\Leia.doc"
'MAPIMessages1.AttachmentPosition = 1
    
MAPIMessages1.Send False
MAPISession1.SignOff
        
End Sub
 


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