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

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Enviar E-mail pelo VB via MAPI
Postada em 9/10/2003 por Roßerto            
'Coloque este código no evento que você quizer:
Dim objSession As Object
Dim objMessage As Object

Set objSession = CreateObject("MAPI.SESSION")
Set objMessage = objSession.Inbox.Messages.Add

objSession.Logon "Your Profile Name", , _
                 False, False
objMessage.Subject = "Assunto do e-mail..."
objMessage.Text = "Texto do e-mail..."

'Aqui você deve colocar o caminho COMPLETO
'do arquivo que irá em anexo:
objMessage.Attachments.Add "Anexo", , , _
                           "C:anexo.XLS"

'Se for mais de um destinatário, separe
'os endereçod de e-mail por virgulas (,)
'ou ponto e virgula (;).
objMessage.Recipients.Add _
     "Endereços de e-mail do(s) destinatário(s)"

objMessage.Recipients.Resolve
objMessage.Send

Não esqueça de adicionar o seguinte componente

MICROSOFT MAPI CONTROLS 6.0

Roberto
 


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