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
Re : Comment ajouter une liste d'adresse mail à envoyer
Re
à tester :
Code:
Private Sub CommandButton1_Click()
Dim Nom As Range, Test&
Set Nom = Sheets("Parametre").Range("A2", [A2].End(xlDown))
Test = Application.WorksheetFunction.Match(ComboBox1, Nom, 0) + 1
Label1 = Label1 & Cells(Test, 2) & ";"
End Sub
Re : Comment ajouter une liste d'adresse mail à envoyer
bonjour carcharodon... et merci pour ta solution merci egalement david je teste vos 2 proposition et vous tiens informée à trés bientot et encore merci à tous les 2
Re : Comment ajouter une liste d'adresse mail à envoyer
Re bonjour à tous j'ai donc essayer les 2 possibilité et préféré celui de david84 pour sa simplicité par apport à mes connaissances.
mais je voudrais une aide suplementaire svp la macro que j'utilise fonctionne trés bien
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"
Email(1) = (UserForm1.LabMail.Caption)
' Boucle pour envoyer les mails
For Z = 1 To 1
Application.StatusBar = "Envoi du mail à " & Email(Z)
EnvoiRef = prvSendNotes(("Alerte accident lié au travail d'un agent(e)"), EMailPJ, Email(Z), SaveIt:=False)
Next Z
End Sub
le probleme qui se pose c'est quand dans labMail j'ai ma liste de mail (titi@h.com;titi2@h.com
il y a que le premier qui recois le mail pas la seconde
comment puis je modifier cette macro pour qu'il accepte les mail séparé par un point virgule si quelqu'un peut m'aider svp merci