Bonjour à tous
je suis soumis à un probléme je souhaite ajouter dans un label des contacts dans le but de l'integrer à une macro d'envois d'email grace à un bouton envoyer
j'ai dans ma feuille en colonne A les noms d'agents en B leur adresse Mail
dans mon userform la combobox1 est chargé par les noms je souhaiterais avec le bouton + ajouter l'adresse mail correspondant au nom sélectionnez dans la combobox à la suite les un des autres et séparé par des point virgule dans le label en vue de le mettre dans cette macro
je suis presque sur ne pas avoir été trés clair je reste donc à votre disposition pour tous renseignements complémentaires
merci d'avance de votre aide
je suis soumis à un probléme je souhaite ajouter dans un label des contacts dans le but de l'integrer à une macro d'envois d'email grace à un bouton envoyer
j'ai dans ma feuille en colonne A les noms d'agents en B leur adresse Mail
dans mon userform la combobox1 est chargé par les noms je souhaiterais avec le bouton + ajouter l'adresse mail correspondant au nom sélectionnez dans la combobox à la suite les un des autres et séparé par des point virgule dans le label en vue de le mettre dans cette macro
Code:
Sub EnvoiMail()
' Ajouter la référence Lotus Domino Objects (domobj.tlb)
Dim EMailPJ As String
Dim Email(3) As String
EMailPJ = ThisWorkbook.Path & "\Temp.xls"
[COLOR="red"] Email(1) = "(Label1.caption) ' Boucle pour envoyer les mails[/COLOR] For Z = 1 To 1
Application.StatusBar = "Envoi du mail à " & Email(Z)
EnvoiRef = prvSendNotes(("Alerte accident lié au travail d'un agent(e) de la CCIV"), EMailPJ, Email(Z), SaveIt:=False)
Next Z
End Sub
je suis presque sur ne pas avoir été trés clair je reste donc à votre disposition pour tous renseignements complémentaires
merci d'avance de votre aide