XL 2019 Créer un mail avec liste de contact dans colonne excel avec Objet et corps de texte

OfficeNoob à dit:

Remplace la procédure MailFP dans ton fichier par ceci

VB:

Sub MailFP()

        ' Mails pour liste Contacts pour FP
        Dim Plage As Range, R As Range
        Dim corpsMail As Range
        Dim pjMail As Range
        Dim sujetMail As Range
        Dim contenu As String
        Dim ListeMails As String
        Dim oOutlook As Outlook.Application
        Dim oMailItem As Outlook.MailItem
       
        Set Plage = Nothing
        Set corpsMail = ActiveSheet.Range("Corps_mail")
        Set sujetMail = ActiveSheet.Range("Sujet_mail")
        Set pjMail = ActiveSheet.Range("PJ_mail")
       
        ' Si la recherche de cellule contenant un caractère ne renvoi rien on sort de la procédure
        On Error Resume Next
                Set Plage = ActiveSheet.Range("E2:E75").SpecialCells(xlCellTypeConstants, 2)
       
        If Plage Is Nothing Then
                MsgBox "Aucun destinataire n'est sélectionné"
                Exit Sub
        End If
       
        ' Pour chaque cellule collectée on récupère l'adresse mail en colonne précédente(D)
        For Each R In Plage
                ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
        Next R
       
        ' On sort de la procédure si listeMails ne contient rien
        If ListeMails = "" Then
                MsgBox "La récupération des adresses mails a échoué"
                Exit Sub
        End If
       
        ' Préparation d'Outlook
        Call Preparer_outlook(oOutlook)
       
        On Error Resume Next
                Set oMailItem = oOutlook.CreateItem(0)
       
        ' Si une erreur à la création est détecté on affiche un message d'aide
        If Err.Number > 0 Then
       
                MsgBox "Erreur lors de l'envoi du mail"
       
        ' Sinon on affiche un message d'indication pour confirmer l'envoi du mail
        Else
       
                ' Ajout destinataire, sujet et contenu au corps du mail et envoi
                With oMailItem
                        .BCC = ListeMails
                        .Subject = sujetMail.Value
                        .BodyFormat = olFormatPlain
                        .Body = corpsMail.Value
                       
                        If Not Dir(pjMail.Value) = "" Then
                                .Attachments.Add pjMail.Value
                        Else
                                MsgBox "L'attachement de la PJ a échouer"
                                Exit Sub
                        End If
                       
                        .Display
                End With
               
                MsgBox "Le mail à bien été envoyé"
       
        End If
       
        Exit Sub
                  
End Sub

La PJ se plaçait n'importe ou car le format du corps du mail était en texte enrichi, je les remis en format "plein", je me suis aussi permis de faire un peu le ménage dans le code.
J'ai aussi rajouter un traitement supplémentaire avant la recherche des croix dans la colonne correspondante, effectivement si rien n'était coché l'exécution plantée.

Dit moi si cela te convient

@+

Cliquez pour agrandir...

krimoines à dit:

Bonsoir Office Noob moi aussi je suis interesser par ce fichier j'ai changé le code dans VB mais il y a une anomalie :
' Préparation d'Outlook
Call Preparer_outlook(oOutlook)

Cliquez pour agrandir...

OfficeNoob à dit:

Bonsoir

Oui je pense que c'est la fameuse référence à cocher (voir post #2)
Pour l'autre messagerie il faudrait que je fasse des essais, sinon vois pour utiliser avec CDO.

@+

Cliquez pour agrandir...