Community Service Hours Sheet

Client Send EMail

Below is a Form in Vb.Net

I made a simple client to send email.

The Client asks

Applicant Name ----- ----- ----- Send EMail
File1 File2 -----
as Schedule as Schedule

This is an image of the Mask


Ecco il Codice

Imports System.IO
Imports System.Net.Mail
Imports System.Data

Public Class GestioneGrafici

Private Sub Invia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Invia.Click

Try
' Imposto il Client per accedere al Server di Posta
Dim Client As New SmtpClient("*")

' '''''''''''''''''''''
' Richiesta per Posta Cartacea
' '''''''''''''''''''''
Dim Body As String = ""
Dim Message As New MailMessage

'Set parameters = New MailAddress
Message.From ("*@*. it ")

Message.To.Add (New MailAddress ("*@*. it"))

Message . Subject = "Request" Try


Message.Attachments.Add (New Attachment (File1.Text))
Catch ex As Exception End Try



Try
Message.Attachments.Add (New Attachment (File2.Text) )
Catch ex As Exception End Try



Body = Body + "Name of Applicant:"
Body = Body + "" + Chr (13) & Chr (10)
Body = Body + "" + NominativoRichiedente.Text
Body = Body + "" + Chr (13) & Chr (10)
Body = Body + " "+ Chr (13) & Chr (10)

Body = Body +" Message: "
Body = Body +" "+ Chr (13) & Chr (10)
Body = Body +" "+ TestoRichiesta. Text
Body = Body + "" + Chr (13) & Chr (10)
Body = Body + "" + Chr (13) & Chr (10)

Message.Body

Body = 'Enter il messaggio
Client.Send(Message)
MsgBox("Messaggio Inviato")

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

Private Sub Sfoglia1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sfoglia1.Click
ChooseFolder1()
End Sub
Private Sub Sfoglia2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sfoglia2.Click
ChooseFolder2()
End Sub

Public Sub ChooseFolder1()
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
File1.Text = OpenFileDialog1.FileName
End If
End Sub

Public Sub ChooseFolder2()
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
File2.Text = OpenFileDialog1.FileName
End If
End Sub
End Class

Per chiarimenti Contattatemi.