IMPOSSIBLE DE TRANSMETTRE UN EMAIL AU DEPART DE
VISUAL BASIC 2003
AYANT UN FICHIER CLIENT JE VOUDRAI TRANSMETTRE UN
MAILING A CHACUN AYANT UNE ADRESSE EMAIL.
QUELQU'UN AURAIT UNE SOLUTION A ME PROPOSER.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fred
Bonjour,
Il existe une fonction fort pratique en Visual Basic .net Edition 2003.
Pour l'exploiter, il faut tout d'abord ajouter une référence :
Menu projet/Ajouter une référence
Insérez la référence system.web en double-cliquant sur son entrée.
Ensuite, dans votre code, importez les fonctions liées à la gestion du courriel :
Imports System.Web.Mail Après quoi, vous pouvez créer une fonction qui émet le courriel comme dans l'exemple suivant :
Sub EmissionEmail()
Dim MyMail As MailMessage = New MailMessage
Dim iLoop1 As Integer
Dim sAttach As String = "C:piece1.csv,C:piece2.csv" ' Si vous avez des pièces à joindre, renseignez cette chaîne comme dans cet exemple
Dim sep As Char = ","
Dim sPart As String
Try
MyMail.BodyFormat = MailFormat.Html
MyMail.Body = "<html><body><b>Mon courriel émis le " & Now & " au format <u>html</u></b></body></html>"
MyMail.From = ""
MyMail.To = ""
MyMail.Priority = MailPriority.High
MyMail.Subject = "Sujet de mon courriel"
'
' --- Je regarde si il y a des pièces attachées à joindre au courriel
'
If Trim(sAttach) <> "" Then
For Each sPart In sAttach.Split(sep)
Dim myAttachment As MailAttachment = New MailAttachment(sPart)
MyMail.Attachments.Add(myAttachment)
Next
End If
'
' --- Je spécifie ici le serveur SMTP lié
'
SmtpMail.SmtpServer = "smtp.mondomaine.fr"
'
' --- Le courriel est émis ici
'
SmtpMail.Send(MyMail)
Catch ex As Exception
EventLog.WriteEntry("Courriel", "Problème d'émission des données. Le SMTP n'est sans doute pas disponible... Erreur : " & ex.ToString, EventLogEntryType.Error, 2)
End Try
End Sub
Attention : le SMTP doit toujours être celui de votre FAI courant.
Frédéric.
"BWD" a écrit dans le message de news:1e2fa01c45521$66180b30$
IMPOSSIBLE DE TRANSMETTRE UN EMAIL AU DEPART DE VISUAL BASIC 2003 AYANT UN FICHIER CLIENT JE VOUDRAI TRANSMETTRE UN MAILING A CHACUN AYANT UNE ADRESSE EMAIL. QUELQU'UN AURAIT UNE SOLUTION A ME PROPOSER.
Bonjour,
Il existe une fonction fort pratique en Visual Basic .net Edition 2003.
Pour l'exploiter, il faut tout d'abord ajouter une référence :
Menu projet/Ajouter une référence
Insérez la référence system.web en double-cliquant sur son entrée.
Ensuite, dans votre code, importez les fonctions liées à la gestion du
courriel :
Imports System.Web.Mail
Après quoi, vous pouvez créer une fonction qui émet le courriel comme dans
l'exemple suivant :
Sub EmissionEmail()
Dim MyMail As MailMessage = New MailMessage
Dim iLoop1 As Integer
Dim sAttach As String = "C:piece1.csv,C:piece2.csv" ' Si vous avez des
pièces à joindre, renseignez cette chaîne comme dans cet exemple
Dim sep As Char = ","
Dim sPart As String
Try
MyMail.BodyFormat = MailFormat.Html
MyMail.Body = "<html><body><b>Mon courriel émis le " & Now & " au format
<u>html</u></b></body></html>"
MyMail.From = "moi@mondomaine.fr"
MyMail.To = "remoi@mondomaine.fr"
MyMail.Priority = MailPriority.High
MyMail.Subject = "Sujet de mon courriel"
'
' --- Je regarde si il y a des pièces attachées à joindre au courriel
'
If Trim(sAttach) <> "" Then
For Each sPart In sAttach.Split(sep)
Dim myAttachment As MailAttachment = New MailAttachment(sPart)
MyMail.Attachments.Add(myAttachment)
Next
End If
'
' --- Je spécifie ici le serveur SMTP lié
'
SmtpMail.SmtpServer = "smtp.mondomaine.fr"
'
' --- Le courriel est émis ici
'
SmtpMail.Send(MyMail)
Catch ex As Exception
EventLog.WriteEntry("Courriel", "Problème d'émission des données. Le SMTP
n'est sans doute pas disponible... Erreur : " & ex.ToString,
EventLogEntryType.Error, 2)
End Try
End Sub
Attention : le SMTP doit toujours être celui de votre FAI courant.
Frédéric.
"BWD" <JOQUESTROY@AOL.COM> a écrit dans le message de
news:1e2fa01c45521$66180b30$a101280a@phx.gbl...
IMPOSSIBLE DE TRANSMETTRE UN EMAIL AU DEPART DE
VISUAL BASIC 2003
AYANT UN FICHIER CLIENT JE VOUDRAI TRANSMETTRE UN
MAILING A CHACUN AYANT UNE ADRESSE EMAIL.
QUELQU'UN AURAIT UNE SOLUTION A ME PROPOSER.
Il existe une fonction fort pratique en Visual Basic .net Edition 2003.
Pour l'exploiter, il faut tout d'abord ajouter une référence :
Menu projet/Ajouter une référence
Insérez la référence system.web en double-cliquant sur son entrée.
Ensuite, dans votre code, importez les fonctions liées à la gestion du courriel :
Imports System.Web.Mail Après quoi, vous pouvez créer une fonction qui émet le courriel comme dans l'exemple suivant :
Sub EmissionEmail()
Dim MyMail As MailMessage = New MailMessage
Dim iLoop1 As Integer
Dim sAttach As String = "C:piece1.csv,C:piece2.csv" ' Si vous avez des pièces à joindre, renseignez cette chaîne comme dans cet exemple
Dim sep As Char = ","
Dim sPart As String
Try
MyMail.BodyFormat = MailFormat.Html
MyMail.Body = "<html><body><b>Mon courriel émis le " & Now & " au format <u>html</u></b></body></html>"
MyMail.From = ""
MyMail.To = ""
MyMail.Priority = MailPriority.High
MyMail.Subject = "Sujet de mon courriel"
'
' --- Je regarde si il y a des pièces attachées à joindre au courriel
'
If Trim(sAttach) <> "" Then
For Each sPart In sAttach.Split(sep)
Dim myAttachment As MailAttachment = New MailAttachment(sPart)
MyMail.Attachments.Add(myAttachment)
Next
End If
'
' --- Je spécifie ici le serveur SMTP lié
'
SmtpMail.SmtpServer = "smtp.mondomaine.fr"
'
' --- Le courriel est émis ici
'
SmtpMail.Send(MyMail)
Catch ex As Exception
EventLog.WriteEntry("Courriel", "Problème d'émission des données. Le SMTP n'est sans doute pas disponible... Erreur : " & ex.ToString, EventLogEntryType.Error, 2)
End Try
End Sub
Attention : le SMTP doit toujours être celui de votre FAI courant.
Frédéric.
"BWD" a écrit dans le message de news:1e2fa01c45521$66180b30$
IMPOSSIBLE DE TRANSMETTRE UN EMAIL AU DEPART DE VISUAL BASIC 2003 AYANT UN FICHIER CLIENT JE VOUDRAI TRANSMETTRE UN MAILING A CHACUN AYANT UNE ADRESSE EMAIL. QUELQU'UN AURAIT UNE SOLUTION A ME PROPOSER.
