Transférer une colonne d'adresse courriel volumineuse dans (contact)
S
Bonjour,
Je dois effectuer l'action cité en objet afin de partager un courriel à tout ce beau monde.
Je vous remercie à l'avance.
Francis
v
Bonjour,
un exemple dans le cas où tu souhaites sélectionner toute les valeurs présentes dans la colonne A à partir de la ligne 2
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = ""
For i = 2 To Range("A1048576").End(xlUp).Row
MonMessage.To = MonMessage.To & ";" & Cells(i, 1)
Next i
MonMessage.Subject = "test envoi"
MonMessage.Body = "Bonjour"
MonMessage.display
Set MonOutlook = NothingCordialement
S
Bonjour Vince
Je te remercie de ton aide, j'apprécie mais je ne comprends pas ce langage ? Je vois bien qu'il y a des mots en anglais mais ils ne m'aident pas dans ce contexte
v
C'est une macro VBA, un morceau de code à éxecuter. Pour éxecuter mon code suit ce tutoriel
Place le code dans un module et ensuite avec la flèche verte en haut de l'ecran lance le.
Normalement un mail outlook pré-construit s'ouvrera.
Si tu n'as pas de donnée confidentiel envoie moi ton fichier.