Inviare email con CDO in Visual Basic 6

Applicazioni desktop con Visual Basic 6 Impara a creare applicazioni gestionali col Visual Basic

Concesso in esclusiva a MrWebmaster.it - E' vietata la pubblicazione senza espresso consenso del proprietario

Come tutti gli altri linguaggi di casa Microsoft, anche il Visual Basic utilizza l'oggetto CDO per inviare email ad una form ed il funzionamento è analogo, ad esempio, a quello di ASP.

Non resta quindi che fare un esempio. Create un nuovo progetto ed aggiungete una form come nuovo EXE standard; inserite poi gli elementi fino ad ottenere un risultato simile all'immagine che segue

Progetto / Riferimenti

Private Sub cmdEmail_Click()
    Dim nome, email, messaggio
    nome = txtNome.Text
    email = txtEmail.Text
    messaggio = txtMessaggio.Text
    If Len(Trim(nome)) = 0 Then
        MsgBox "Inserisci il tuo nome", vbCritical, "Errore"
        txtNome.SetFocus
    ElseIf InStr(email, "@") = 0 Then
        MsgBox "Inserisci la tua email", vbCritical, "Errore"
        txtEmail.SetFocus
    ElseIf Len(Trim(messaggio)) = 0 Then
        MsgBox "Inserisci il messaggio", vbCritical, "Errore"
        txtMessaggio.SetFocus
    Else
        Dim cdo As New CDO.Message
        With cdo
            .From = email
            .To = "tuamail@server.ext" ' QUI LA TUA EMAIL
            .Subject = "Messaggio da " & nome
            .TextBody = messaggio
            .Send
        End With
    End If
End Sub

.To = "tuamail@server.ext" ' QUI LA TUA EMAIL