[VB6] - Inviare mail

[stebux]

Buon Lunedì a tutti!
Qualcuno di voi sa dirmi se è possibile tramite visual basic 6 predisporre un testo, oggetto e destinatari per una mail e poi inviarle direttamente dal programma senza passare per outlook?

Se fosse possibile qualcuno di voi ha dei sorgenti da passarmi o qualche esempio reperibile in internet??

Grazie. Ciao

[junx]

Potresti provare con Winsock:

Dim sRes As String
Private Sub Command1_Click()
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = your_mail_server_here
    'usa il tuo mail server
    Winsock1.Connect
    Do Until Winsock1.State = 7 '7=connected
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "MAIL FROM: " & your_email_here & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "RCPT TO: " & someone_email_here & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "DATA" & vbCrLf
    Do Until sRes = "354"
        DoEvents
    Loop
    Winsock1.SendData "FROM: " & your_name_here & vbCrLf
    Winsock1.SendData "SUBJECT: " & subject_here & vbCrLf
    Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    Winsock1.Close
    MsgBox "Mail sent!"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Dim Length As Long
    Winsock1.GetData Data
    Length = Len(Data)
    sRes = Left$(Data, 3)
End Sub

[xegallo]

Originariamente inviato da junx
Potresti provare con Winsock:

oppure usare la ricerca ed evitare di postare sempre le stesse cose

[junx]

Il codice che ho inviato non è stato mai postato, oppure sono io che non l'ho trovato, quindi ritengo utile che chi ha bisogno possa prendere spunto da due sorgenti che fanno la stessa cosa ma in modi differenti.

[xegallo]

http://forum.html.it/forum/search.ph...der=descending :quipy:

[junx]

...infatti il codice è diverso... :gren: .....o sbaglio?

[stebux]

Originariamente inviato da xegallo
oppure usare la ricerca ed evitare di postare sempre le stesse cose

non capisco perchè devi essere sempre così aggressivo...
la ricerca ho provato a farla ma non mi ha dato risultati soddisfacenti. sai essendo nuovo non sono in grado di smanettare qua e là e trovare subito una risposta consona alle mie ricerche.


PER JUNX: grazie infinite! ciao

[stebux]

Potresti provare con Winsock

Scusa dove lo trovo tra i componenti???

[junx]

Progetto > Componenti > Microsoft Winsock Control

[stebux]

grazie ancora... sei un grande!
sei hai bisogno...