[vb6] Inviare e-mail

[venditore]

Qualcuno sa come fare per mandare le e-mail con visual basic?

[goku370]

Devi usare il Winsock per inviare i comandi al server. Sai che cos'è il TELNET ? :master:

[venditore]

Si so cos'è telnet ma io non voglio usare telnet io voglio un codice che mi fa mandare le e-mail da visual basic

[MMarzia]

come da regolamento: specifica la versione di VB, anche nel titolo

[venditore]

Visual basic 6

[Gigi84]

Non serve assolutamente conoscere telnet.. usare Winsock per riscrivere parte del protoccollo SMTP da 0 mi sembra come reinventare la ruota (lo puoi fare al max per scopo didattico..)
Invece dato che usi VB c'è il MS MAPI control che ti permette di mandare la mail!
Non l'ho mai usato, ma se cerchi con Google.. trovarei millemila esempo!

ciao!

[FRANCESCA_MRC]

io ho fatto così....usando MAPI..come ti ha già suggerito gigi

Function InviaMessaggio()
Dim wSignON As Integer
 
    wSignON = False
    InviaMessaggio = 0
    On Error GoTo MapiErrore
    MAPISession1.UserName = ""
    MAPISession1.LogonUI = True
    DoEvents
    MAPISession1.SignOn
    DoEvents
    MAPIMessages1.SessionID = MAPISession1.SessionID
    wSignON = True
    MAPIMessages1.MsgIndex = -1
    'MAPIMessages1.Action = 6
    'MAPIMessages1.MsgNoteText = ""
    MAPIMessages1.RecipDisplayName = "destinatario"
    MAPIMessages1.AddressCaption ="indirizzo destinatario"
    MAPIMessages1.RecipIndex = 0
    MAPIMessages1.ResolveName
    DoEvents
    MAPIMessages1.AttachmentIndex = 0
    MAPIMessages1.MsgSubject ="OGGETTO"    MAPIMessages1.AttachmentPathName = "PATH FILE DA ALLEGARE")    MAPIMessages1.AttachmentPosition = MAPIMessages1.AttachmentIndex
    MAPIMessages1.AttachmentType = 0
    MAPIMessages1.MsgIndex = -1
    DoEvents
    MAPIMessages1.Send (False)
    DoEvents
    MAPISession1.SignOff
    DoEvents
    On Error GoTo 0
    
    DoEvents
    On Error Resume Next

    
Exit Function
MapiErrore:
    If wSignON Then
        MAPISession1.SignOff
    End If
    InviaMessaggio = Err
    'Kill lpName
    MsgBox "Errore in InviaMessaggio " & Err & " " & Error$
    On Error GoTo 0
End Function

vedi se va..

[Mabi]

In questa pagina puoi trovare invece un esempio su come inviare e-mail utilizzando il protocollo mailto:.