Bonjour à tous !
j'ai une petite question, j'ai trouvé (sur ce forum) ce petit code pour lancer un nouveau message avec outlook, cela fonctionne parfaitement, mais n'étant pas un expert de VBA, je ne parvient pas à ajouter une ligne de code me permettant d'ajouter automatiquement les destinataires. Je suis sous office 2016, voici le code pour ouvrir un nouveau mail :
je pécise que je ne veux pas que le message soit envoyé automatiquement.
Pour les destinataires, j'avais également trouvé ce code qui fonctionne très bien, il permet de faire une liste à partir de cellules excel contenant les adresses mail.
ce qui me permettait de choisir la liste "dest" comme destinataire.
Voila, merci d'avance pour votre aide !
à bientôt
j'ai une petite question, j'ai trouvé (sur ce forum) ce petit code pour lancer un nouveau message avec outlook, cela fonctionne parfaitement, mais n'étant pas un expert de VBA, je ne parvient pas à ajouter une ligne de code me permettant d'ajouter automatiquement les destinataires. Je suis sous office 2016, voici le code pour ouvrir un nouveau mail :
Code:
Sub NouveauMessage()
Dim ObjOutlook As Object
Dim ObjMessage As Object
Set ObjOutlook = CreateObject("Outlook.Application")
Set ObjMessage = ObjOutlook.CreateItem(0)
ObjMessage.Display
Set ObjOutlook = Nothing
End Sub
je pécise que je ne veux pas que le message soit envoyé automatiquement.
Pour les destinataires, j'avais également trouvé ce code qui fonctionne très bien, il permet de faire une liste à partir de cellules excel contenant les adresses mail.
Code:
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("D5:D" & Range("D65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
Voila, merci d'avance pour votre aide !
à bientôt