[VB6] Inviare mail con CDO

[StegcO]

Ho risolto usando MAPI:

Creare gli oggetti:



aggiungere il COMPONENTE MICROSOFT MAPI e questo è il codice:

Private Sub cmd_send_mail_Click()

Dim Bug As String

Bug = txt_bug.Text

With MAPSESS
    .DownLoadMail = False
    .Username = "mail@mail.mail"
    .Password = "password"
    .LogonUI = True
    .SignOn
    .NewSession = True
    bNewSession = .NewSession
    MAPMESS.SessionID = .SessionID
End With

MAPMESS.MsgIndex = -1
MAPMESS.Compose
MAPMESS.RecipDisplayName = "mail@mail.mail"
MAPMESS.RecipAddress = "SMTP:" & "mail@mail.mail"
MAPMESS.MsgSubject = "Trovato BUG"
MAPMESS.MsgNoteText = Bug
MAPMESS.Send False

MsgBox "E-Mail inviata correttamente!", vbOKOnly, "Bug Riportato"

txt_bug.Text = ""

End Sub