exporter sélection multiple listbox vers destinataires outlook

[atharaxius]

Bonjour à tous les magiciens du VBA,

Il est tard, je cherche depuis des heures, je ne vois pas de solution, alors je vous appelle à l'aide.

En clair mon problème est le suivant :

j'ai une ListBox comprenant une liste d'e-mail. Je voudrais que l'utilisateur puisse sélectionner les destinataires de son choix et que lorsqu'il appuie sur un commandbutton les destinataires apparaissent dans la ligne prévue à cet effet dans un mail outlook.

J'arrive à faire en sorte de générer le mail outlook, avec en corps de texte, le contenu d'un userform d'excel, j'arrive même à transposer 1 destinataire, mais pas de destinataires multiples.

Je ne sais pas si je suis clair.

Si vous avez une piste, ou un lien sur le forum que je n'ai pas vu, merci mille fois.

Bonne nuit à tous puisqu'il est déjà tard.

 

[atharaxius]

Re : exporter sélection multiple listbox vers destinataires outlook

Petite précision. Pour être plus clair. Mon USF comprend une listbox (avec les e-mail) et deux CommandButton. L'un sert à fermer le USF, l'autre à envoyer un mail aux destinataires sélectionnés dans la ListBox avec le contenu d'un autre USF en corps de message.
Voici le code de mon CommandButton.

Private Sub CommandButton2_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = UserForm1.Info.Value
On Error Resume Next
With OutMail
.To = UserForm4.ListBox1.Value (c'est cette partie qui pose problème!!!)
.CC = ""
.BCC = ""
.Subject = "Fiche d'Information"
.HTMLBody = strbody
.BodyFormat = olFormatHTM
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Merci d'avance à vous tous.

 

[kjin]

Re : exporter sélection multiple listbox vers destinataires outlook

Bonsoir,
Pour envoyer ton mail à plusieurs destinataires, il me semble que tu dois saisir les adresses l'une après l'autre, séparées par un point-virgule.
Donc le plus simple serait de passer par une textbox intermédiaire qui récupère les saisies dans ta listbox, puis dans le code de la listbox :

Private Sub ListBox1_Click()
TextBox1.Value = TextBox1.Value & ListBox1.Value & ";"
End Sub

et dans le code :

Private Sub CommandButton2_Click()
...
.To= Left(TextBox1.Text, Len(TextBox1.Text) - 1)
...

Je n'ai pas testé
A+
kjin

 

[atharaxius]

Re : exporter sélection multiple listbox vers destinataires outlook

Bonsoir,

Je suis vraiment un infame personnage car je ne t'ai pas remercié!
C'est impardonnable surtout que tu as répondu à mon problème extrêmement rapidement.
Ta solution fonctionne très bien. Un grand merci.

Longue vie à l'entraide et à ce forum.