Bonsoir le forum,
Voici un code qui permet de générer un mail
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
If Nom_Fichier = "Faux" Then Exit Sub
With oBjMail
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.To = "LeClient@gmail.com" ' le destinataire
.CC "" 'adresse destinataire en copie
'.BCC = "" 'adresse destinataires pour info
.Subject = "OPTIMUM Demande de création - Suppression " ' l'objet du mail
.HTMLBody = "Pourriez-vous S V P traîter les demandes de création et de suppression de ce jour " 'le corps du mail
.BodyFormat = olFormatHTML 'signature outlook
.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
.Fields("urn:schemas:mailheader:return-receipt-to") = "" 'adresse pour recevoir un accusé de réception. En général c'est l'adresse de l'expéditeur.
'.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub
Le destinataire ne change pas, le texte ne change pas, j'ai la possibilité de choisir une pièce jointe,
mais j'ai besoin de pouvoir choisir et ajouter plusieurs destinataires en copie en les choisissant dans une liste (sélection décalée) :
soit
tartentenpion => xxxx@gmail.fr
paparazzi => xxxxxx@gmail.com...
D'avance je vous remercie pour votre aide et votre disponibilité