Bonjour.
Je réussi à envoyer aisément des mails à partir de mon application vb tant que j'utilise une adresse qui n'est pas liée au domaine. quand j'utilise mon adresse professionnelle pour envoyer à partir du domaine, il y a un problème. Je poste le code
Je tiens à rappeler qu'il n'y a pas de serveur smtp dans notre domaine. Nous passons par office365 et l'adresse est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Public Sub EnvoiMail(ByVal pFrom As String, ByVal pSubject As String, ByVal pContent As String, PieceJointe As String) Dim EchecEnvoi As Boolean EchecEnvoi = False Dim AdresseSmtp As String AdresseSmtp = "smtp.fai_1.ci" Try Dim Msg As New MailMessage() Dim SmtpMail As New SmtpClient Dim DataPJ As Attachment DataPJ = Nothing If PieceJointe <> "" Then DataPJ = New Attachment(PieceJointe) ' On envoie le mail au destinataire de base Msg.From = New MailAddress(pFrom) Msg.To.Add("nom.prenom@domaine.ci") Msg.Subject = pSubject Msg.Body = pContent If PieceJointe <> "" Then Msg.Attachments.Add(DataPJ) SmtpMail.Host = AdresseSmtp SUITE: SmtpMail.Host = AdresseSmtp SmtpMail.Send(Msg) Catch EchecEnvoi = True If AdresseSmtp = "smtp.fai_2.ci" Then Exit Sub 'En cas d'echec d'envoi, réessayer l'envoi avec un autre opérateur AdresseSmtp = "smtp.fai_2.ci" GoTo SUITE End Try end sub
"outlook.office365.com"
Partager