Comment faire pour envoyer un mail

Imports

System.Net.Mail

Imports

System.Text

Imports

System.ServiceProcess

Dim

arlAttachments As ArrayList

Private

Sub btnAttach_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttach.Click

Dim odlgAttachment As New OpenFileDialog

With odlgAttachment

.InitialDirectory =

"C:\"

.Filter =

"All Files (*.*)|*.*|HTML Files (*.htm;*.html)|*.htm|Microsoft Mail Documents (*.msg)|*.msg|Word Documents (*.doc)|*.doc|Excel Files(*.xl*)|*.xl*|Excel Worksheets (*.xls)|*.xls|Excel Charts (*.xlc)|*.xlc|PowerPoint Presentations (*.ppt)|*.ppt|Text Files (*.txt)|*.txt"

.FilterIndex = 1

' The OpenFileDialog control only has an Open button, not an OK button.

' However, there is no DialogResult.Open enum so use DialogResult.OK.

If .ShowDialog() = Windows.Forms.DialogResult.OK Then

If IsNothing(arlAttachments) Then

arlAttachments =

New ArrayList()

' Clear the "(No Attachments)" default text in the ListView

Attachments.Items.Clear()

End If

arlAttachments.Add(

New Attachment(.FileName))

' You only want to show the file name. The OpenFileDialog.FileName

' property contains the full path. So Split the path and reverse it

' to grab the first string in the array, which is just the FileName.

Dim strFileName() As String = .FileName.Split( New Char () { CChar ( "\" )})

System.Array.Reverse(strFileName)

Attachments.Items.Add(strFileName(0))

End If

End With

End

Sub

Private

Sub btnSend_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click

Dim from As String = "blabla@mail.com"

If tbTo.Text = "" Then

MsgBox(

"You must enter Mail To addresses." )

Exit Sub

End If

 

Dim sb As New StringBuilder()

' Build the email message body.

sb.Append(Trim(tbBody.Text))

sb.Append(vbCrLf)

' Creating a mail message is as simple as instantiating a class and

' setting a few properties.

Dim mailMsg As New MailMessage(from, tbTo.Text.Trim)

With mailMsg

.Subject = tbSubject.Text.Trim

.Body = sb.ToString

If Not IsNothing(arlAttachments) Then

Dim mailAttachment As Attachment

For Each mailAttachment In arlAttachments

.Attachments.Add(mailAttachment)

Next

End If

End With

' Set the SmtpServer name. This can be any of the following depending on

' your local security settings:

' a) Local IP Address (assuming your local machine's SMTP server has the

' right to send messages through a local firewall (if present).

' b) 127.0.0.1 the loopback of the local machine.

' c) "smarthost" or the name or the IP address of the exchange server you

' utilize for messaging. This is usually what is needed if you are behind

' a corporate firewall.

' Use structured error handling to attempt to send the email message and

' provide feedback to the user about the success or failure of their

' attempt.

Try

Dim client As New Net.Mail.SmtpClient( "smtp.mail.com" , 587)

client.Timeout = 10000

client.EnableSsl =

True

client.Credentials =

New Net.NetworkCredential( "blabla286" , "Y5p-§89" , "" )

' client.Send(Message)

client.Send(mailMsg)

Attachments.Items.Clear()

Attachments.Items.Add(

"(No Attachments)" )

MessageBox.Show(

"Your email has been successfully sent!" , _

"Email Send Status" , MessageBoxButtons.OK, _

MessageBoxIcon.Information)

Catch exp As Exception

MessageBox.Show(

"The following problem occurred when attempting to " & _

"send your email: " & exp.Message, _

Me .Text, MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End

Sub


Bonjour chez vous !

Bonjour chez vous !