Mario De Ghetto

Microsoft MVP – Visual Basic (VB.NET: Programmare che passione!)

Archivio per 25 Gennaio 2008

La ballata del programmatore

Pubblicato da Mario De Ghetto su 25 Gennaio 2008

Segnalo questa pagina che permette di ascoltare “La ballata del programmatore”, una simpatica variante della canzone “Il pescatore” di Fabrizio De André:

http://www.derelitti.com/ballata_del_programmatore/

Pubblicato su Senza Categoria | Lascia un commento »

#16 Inviare e-mail in formato HTML con allegati

Pubblicato da Mario De Ghetto su 25 Gennaio 2008

Per inviare un’e-mail con allegati e per di più in formato HTML non c’è niente di meglio che una manciata di codice VB.NET, come potete vedere dal seguente codice:

Imports System.Text
Public Class Form1
    Dim strBody As _
        New StringBuilder("Ciao da Mario De Ghetto!,")
    Dim objMail As New System.Net.Mail.MailMessage()
    Dim strPath As String = "C:\prova.txt"
    Dim strFrom As String = "mittente@dominio.com"
    Dim strTo As String = "destinatario@libero.it"
    Private Sub Button1_Click(ByVal sender _
            As System.Object, _
            ByVal e As System.EventArgs) _
            Handles Button1.Click
        strBody.Append("<br>")
        strBody.Append("<br>")
        strBody.Append("<strong>Testo di prova</strong>")
        strBody.Append("<br>")
        strBody.Append("<br>")
        strBody.Append("<br>")
        strBody.Append("Cordiali saluti.")
        strBody.Append("<br>")
        strBody.Append("Ditta XYZ")
        strBody.Append("<br>")
        Dim frmaddress As _
            New System.Net.Mail.MailAddress(strFrom)
        Dim attachement As _
            New System.Net.Mail.Attachment(strPath)
        objMail.To.Add(strTo)
        objMail.From = frmaddress
        objMail.Subject = "Invio documento allegato: " & strPath
        objMail.Priority = Net.Mail.MailPriority.High
        objMail.IsBodyHtml = True
        objMail.Body = strBody.ToString
        If strPath <> "" Then
            objMail.Attachments.Add(attachement)
        End If
        Dim SmtMail As _
            New System.Net.Mail.SmtpClient("smtp.libero.it")
        SmtMail.Send(objMail)
        MessageBox.Show("Mail spedita!")
    End Sub
End Class  

Il codice è abbastanza chiaro. Ovviamente dovrete personalizzare i dati, come l’indirizzo del vostro server SMTP, l’indirizzo del mittente e del destinatario e così via. Se vi auto-inviate l’e-mail, potrete verificare che effettivamente c’è l’allegato e che il testo è in formato HTML.

Pubblicato su Tips | Contrassegnato da tag: , , | 5 Commenti »