|
|
|
|
|
|
|
|
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
|
|
|
|
|
