Email

[Bruno Alano 0]

Pessoal, estou tentando criar um programa que envia email.

 

Só que o problema, é que quando eu faco dá erro e mesmo baixando códigos prontos parecesse que o SMTP do gMail nao vai...

 

Preciso de uma ajuda de voces, preciso que o source envie um email para X@X.com com algum SMTP que funcione.

 

 

Grato - Bruno Alano

[Ricardo II 2]

Ve se ajuda esse links.

 

http://www.macoratti.net/vb_email.htm

http://www.macoratti.net/email_vb.htm

 

Abraço

[Rogério Orlando 0]

Não sei se entendi direito, mas tente isto:

 

' declare a variável

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _

As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 

 

' no evento click de um label qualquer

Private Sub LblEMail_Click()

Dim ret&

ret = ShellExecute(Me.hwnd, "OPen", "mailto:email desejado?subject=texto que vai aparecer no assunto", "", "", 1)

End Sub

 

 

' isto fará abrir o outlook

 

boa sorte e espero ter ajudado