Une simple fonction qui permet d'envoyer un Mail:
SendMail("me@me.com", "you@you.com","My Subject","My Message")
Source / Exemple :
' la variable SMTPServer doit être définie avec l'adresse du serveur SMTP accessible par votre application.
Public Sub SendMail(ByVal pFrom As String, ByVal pTo As String, ByVal pSubject As String, ByVal pContent As String)
Dim Msg As New MailMessage()
Dim Erreur As Boolean = False
' On envoie le mail au destinataire de base
Try
Mail.SmtpMail.SmtpServer = SMTPServer
Msg.From = pFrom
Msg.To = pTo
Msg.Subject = pSubject
Msg.Body = pContent
SmtpMail.Send(Msg)
Catch
Erreur = True
End Try
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.