[VB6] Inviare mail con CDO

[StegcO]

Ho aggiunto il riferimento e creato questo semplicissimo codice, però non funziona.

Mi sorge il dubbio, ma come inserisco il valore di mail entrata/uscite ecc ecc?

Private Sub cmd_send_mail_Click()

Dim CDO As New CDO.Message
Dim Bug As String

Bug = txt_bug.Text

With CDO
    .From = "miamail@ecc"
    .To = miamail@ecc"
    .Subject = "Trovato BUG"
    .TextBody = Bug
    .Send
End With

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

txt_bug.Text = ""

End Sub

Grazie

[StegcO]

on ho ancora risolto, non riesco a trovare i comandi per dirgli di usare exchange e quale server..

nessuno usa CDO?

[StegcO]

ho provato a modificaere il codice ASP di un mio sito ma mida errore ove evidenzio

Private Sub cmd_send_mail_Click()

Dim CDO As New CDO.Message
Dim Bug As String

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "tuo.server"
    .Item(cdoSMTPServerPort) = 25
    .Item(cdoSMTPConnectionTimeout) = 10
    .Update
End With

Bug = txt_bug.Text

With CDO

    .From = Username & "@XXX.com"
    .To = "XXX@XXX.com"
    .Subject = "XXX"
    .TextBody = Bug
    .Send
End With

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

txt_bug.Text = ""

End Sub

[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