XL 2013 Envois un mail en passant par un relay smtp

[creolia]

bonjour tous le monde

je viens solliciter votre aide car j’essaie de trouver une macro pour l’envoie de mail en passant par un smtp relay de mon entreprise et malgré des jours de recherche je n'arrive pas à trouver un bout de macro à ce sujet

on utilise deux façon envoyer les mail soit via le web Outlook app Web et la impossible de passer par vba soit en utilisant un serveur relay accessible en local (192.168.5.29) port 25 c'est sur cette dernière que j'ai le plus de chance d'y arriver car il semble remplacer le classic SMTP.fourniseur.fr

je sais c'est peut élément mais malheureusement comme je vous est dit j'ai rien trouver malgré mes recherche quelqu'un aurait il une idée svp merci

 

[creolia]

Public Sub EnvoieMail()
Dim mMessage As Object
Dim mConfig As Object
Dim mSch
  Dim oMail As MailItem
DER = Sheets("BDD").Range("E55").End(xlUp).Row
For a = 3 To DER
      Destination = Sheets("BDD").Cells(a, 5).Value


    Set mConfig = CreateObject("CDO.Configuration")
    'mConfig.Load -1
   Set mSch = mConfig.Fields
    With mSch
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.5.20"
        'En principe, 25 fonctionne avec tout les serveurs.
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       
        .Update
    End With
    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .To = Destination
        .From = UserForm1.ComboBox5
        .Subject = UserForm1.ComboBox1
        .TextBody = "Bonjour Monsieur, Madame" & vbCrLf & vbCrLf _
                    & "Veuillez trouvez ci-joint le Rapport d'intervention ainsi que la fiche victime suite a l'accident du travail de l'agent: " & vbCrLf & vbCrLf _
                    & UserForm1.TextBox20.Value & vbCrLf _
                    & "Survenue le: " & UserForm1.TextBox18.Value & vbCrLf _
                    & "En vous souhaitant bonne reception " & vbCrLf & vbCrLf _
                    & "Cordialement l'agent SSIAP2 SEATH " & ComboBox5 & vbCrLf & vbCrLf _
                 

      
    

      
      
      
       'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
       .AddAttachment ThisWorkbook.Path & "\Rapport.pdf"
         .AddAttachment ThisWorkbook.Path & "\rapport mail.pdf"
       'Envoie du mail
      
      
      
     
      
       .Send
    End With
    'Libère les ressources
   Set mMessage = Nothing
    Set mConfig = Nothing
    Set mSch = Nothing
    'Message de confirmation d'envoie
    Next
   MsgBox "Le mail a été envoyer"
End Sub

re bonjour à tous apres tout un week end de recherche j'ai trouver et adapter le code dernier soucis comment intégrer l'accusé de réception svp merci

 

[Roland_M]

Bonjour,

voir ici:
https://www.excel-downloads.com/threads/envoyer-des-mails-avec-vba.187821/#post-1163964

 

[creolia]

Bonjour Roland_M et à tous le forum je te remercie pour ton lien mais je trouve rien au sujet de l'accusé réception en CDO si quelqu'un peu m’éclairè svp merci

 

[Roland_M]

bonjour,

après recherche, essaies ceci juste avant .Send
.MDNRequested = True

.Send 'envoi


bien que je ne vois guère l'utilité car on peut passer out sans confirmer, alors ... !?

 

[creolia]

bonjour,

après recherche, essaies ceci juste avant .Send
.MDNRequested = True

.Send 'envoi


bien que je ne vois guère l'utilité car on peut passer out sans confirmer, alors ... !?

Re donc j'ai essayer d'ajouter la ligne de code sa me fait planter totalement mon fichier au point que j'ai autre choix de faire un arrêt d'excel.

pour moi l'accusé réception montre son utilité pour pouvoir prouver que la personne à bien reçu le fichier

 

[Roland_M]

re

perso win 7 64b et Excel 2007 32B pas de souci !

j'ai essayé en m'envoyant un mail et ça ne m'a pas posé de problème !?
par contre quand je suis allé sur ma boite je n'avais pas de demande de confirmation de lecture !?

conclusion ".MDNRequested = True" est inefficace !


concernant la confirmation, j'avais bien compris ton souhait, mais le récepteur peut très bien ne pas répondre, ça ne sert en aucun cas de preuve !