Envoyer un mail via Outlook à plusieurs contacts
Résolu
BCDLM
Messages postés
13
Statut
Membre
-
BCDLM -
BCDLM -
Bonjour,
Je suis actuellement coincé sur une partie de ma macros Excel.
Je suis en train de coder cette macros afin d'envoyer un formulaire à plusieurs personnes, voici le code :
Application.DisplayAlerts = False
ActiveWorkbook.SendMail recipients:=receiver, Subject:=str_name
ActiveWindow.Close
Application.DisplayAlerts = False
L'erreur vient de la variable receiver car quand je la remplace pas une adresse ça marche.
Cette variable contient deux contacts. Un contact qui ne changera jamais et un autre qui change en fonction d'une cellule du formulaire.
If Cells(22, 7) = "Paris" Then
Worksheets("Data").Select
Sender_1 = Cells(6, 28).Value
ElseIf Cells(22, 7) = "Berlin" Then
Worksheets("Data").Select
Sender_1 = Cells(6, 29).Value
End If
Les deux adresse mails sont rangées dans la variable receiver de cette façon :
receiver = Sender_1 & "; " & Sender_2
(Sender_1 est la variable qui contient l'adresse qui change et Sender_2 celle qui ne change pas...)
Je ne comprends pas pourquoi cela ne peut pas marcher avec une variable.
J'ai aussi essayé avec la fonction Array mais pareil
Si vous avez des idées je suis preneur.
merci pour votre aide !
Je suis actuellement coincé sur une partie de ma macros Excel.
Je suis en train de coder cette macros afin d'envoyer un formulaire à plusieurs personnes, voici le code :
Application.DisplayAlerts = False
ActiveWorkbook.SendMail recipients:=receiver, Subject:=str_name
ActiveWindow.Close
Application.DisplayAlerts = False
L'erreur vient de la variable receiver car quand je la remplace pas une adresse ça marche.
Cette variable contient deux contacts. Un contact qui ne changera jamais et un autre qui change en fonction d'une cellule du formulaire.
If Cells(22, 7) = "Paris" Then
Worksheets("Data").Select
Sender_1 = Cells(6, 28).Value
ElseIf Cells(22, 7) = "Berlin" Then
Worksheets("Data").Select
Sender_1 = Cells(6, 29).Value
End If
Les deux adresse mails sont rangées dans la variable receiver de cette façon :
receiver = Sender_1 & "; " & Sender_2
(Sender_1 est la variable qui contient l'adresse qui change et Sender_2 celle qui ne change pas...)
Je ne comprends pas pourquoi cela ne peut pas marcher avec une variable.
J'ai aussi essayé avec la fonction Array mais pareil
Si vous avez des idées je suis preneur.
merci pour votre aide !
A voir également:
- Envoyer un mail via Outlook à plusieurs contacts
- Gmail envoyer un mail - Guide
- Envoyer un mail à un groupe de contact gmail - Guide
- Supprimer adresse mail outlook - Guide
- Envoyer un mail en cci - Guide
- Windows live mail - Télécharger - Mail
J'ai déjà placé des contrôle avec les Msgbox pour être sûr de ne pas m'être trompé et ils renvoient les bonnes valeurs...
Sinon, quand ça marche sans passer par la variable tu écris quoi ?
Je vais essayer ça, mais pourquoi autant de guillemets?
merci bien
ActiveWorkbook.SendMail recipients:=receiver, Subject:=str_name