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

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
Je tiens à rappeler qu'il n'y a pas de serveur smtp dans notre domaine. Nous passons par office365 et l'adresse est
"outlook.office365.com"