Re : Macro pour coller adresses mail dans outlook
Merci JNP
Désolé, mais je ne comprends pas très bien la procédure.
De mon coté, voilà tout simplement ce que j'ai fait :
J'ai ajouté en début de code de ta macro "Sub Envoyermail ()" un copier de la colonne adresse de mon exemple, soit :
Range("D10
150").Select
Selection.Copy
Ce qui donne :
________________________________________________________
Sub EnvoyerMail ()
Range("D10150").Select
Selection.Copy
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
With OLMail
.To = Destinataires ' Destinataire
' .CC = "titi@titi.fr" ' Copie
' .BCC = "tutu@tutu.fr" ' Copie invisible
.Importance = olImportanceNormal
.Subject = "Coucou" ' Sujet
.Body = "Bonjour chez vous" & vbCrLf & "Tata" ' Message
'.Attachments.Add "C:\Pièce à joindre.pdf" ' Pièce jointe
.Categories = "Daily"
.OriginatorDeliveryReportRequested = True ' Accusé de dépôt
.ReadReceiptRequested = True ' Accusé de lecture
' Send et Display ne doivent pas être utiliser simultanément
' .Send '<<<<<<<<<<<<<<<Pour envoyer directement
.Display '<<<<<<<<<<<<<Pour voir le mail avant envoi
End With
Set OLApplication = Nothing
Set OLMail = Nothing
End Sub
____________________________________________________
Cette macro ouvre Outlook et active la zone destinataire Outlook.
Parfait.
Il me manque juste le code pour coller dans cette zone ce que j'ai copié.
Je peux évidemment effectuer ce "coller" sans macro (Ctrl + V) mais j'aurai voulu l'automatiser et l'intégrer à la macro pour d'autres utilisateurs non avertis.
Quand à ta macro Sub test () que tu me propose, je ne comprends pas de quoi il s'agit et quand elle intervient.
Merci