Enviar email usando o VB

[Fabio Picheli 1]

Pessoal, preciso sabe como envio e-mail usando o vb... Estou desesperado em busca de tutorias mais nao acho, eu queria usar somente o vb e o gmail ou hotmail, alguem sabe?

[Julien.Sorel 0]

Olá Fabio,

 

Não conheço muito bem VB, mas já me disseram que é parecido com VBA - se não for, foi mal...

 

Sobre o envio de eMail, tenho uma rotina que talvez posso lhe ajudar, mas ela utliza Outlook como "enviador"...

 

 

Public Sub SendMail()

   Dim appOutLook As Outlook.Application
   Set appOutLook = CreateObject("Outlook.Application")

   Dim MailOutLook As Outlook.MailItem
   Set MailOutLook = appOutLook.CreateItem(olMailItem)

   With MailOutLook
       .To = txtDestinatario '-
       .Subject = txtAssunto '-
       .Body = txtDetalhe 'Corpo do eMail
       .Attachments.Add (txtAnexo) 'Caminho do arquivo
       .Send 'Enviar
   End With
   Set MailOutLook = Nothing

End Sub

 

Em VBA, se acrescenta a referência "Microsoft Outlook 12.0 Object Libray"...

 

 

Se não for nada disso, foi mal (mais uma vez), mas se for dá uma passado no link abaixo que irei mostrar como fazer isso utilizando Orientação à Objeto...

 

"Como enviar e-mail Orientado à Objeto usando VBA Acess – Parte 1"

 

 

 

 

Sem mais,

 

Julien Sorel

 

_________________________________________________________________

 

ef3cinco.worpress.com | Programação - não importa a linguagem...

[Careca 0]

Procure por Pysendmail.