mail selon choix dans combobox

[ploz]

Bonsoir à tous

je recherche de l'aide pour l'envoie par mail de ma feuille en pdf suivant le choix effectuer dans ma combobox

un exemple. Si dans la combobox, je clique sur Departement 1, en cliquant sur sur le bouton "Enregister", j'enverrai un mail à Monsieur X + monsieur A + Monsieur B, si dans la combobox, je clique sur departement 2, en cliquant sur le bouton "envoyer", j'enverrai un mail à Monsieur Y + monsieur A et monsieur B

a savoir que ma combobox se déroule comme cela

With monsieur_metier
    .AddItem "monsieur X"
    .AddItem "Y"
    .AddItem "A"
    .AddItem "B"
End With

j'ai déjà un bout de code pour outlook qui et fonctionnel =) pour la perte d'un mdp

le voici

'permet de recevoir un mail avec le mdp
Sub recup_mdp_valider_Click()

Dim ol As Object
Dim ArticleDeCourrier As Outlook.MailItem
Dim strMessage As String
Dim lMatch As Variant

lMatch = Application.Match(Me.champ_mail.Text, Worksheets("Admin").Range("C:C"), False)

If IsError(lMatch) Then
MsgBox "L'adresse E-mail saisie ne figure pas dans notre base de données"
Exit Sub
End If

strMessage = "Bonjour, " & Worksheets("Admin").Range("A:A").Cells(lMatch).Value & Chr(10)
strMessage = strMessage & "Ceci est un message interne généré automatiquement." & Chr(10)
strMessage = strMessage & "Votre mot de passe va vous parvenir par mail d'ici quelques minutes" & Chr(10)
strMessage = strMessage & "Cordialement" & Chr(10)

If MsgBox(strMessage & Chr(10) & Chr(10) & "", vbConfirmerNo) = vbNo Then Exit Sub

Set ol = CreateObject("outlook.application")
Set ArticleDeCourrier = ol.CreateItem(olMailItem)
ArticleDeCourrier.To = Worksheets("Admin").Range("C:C").Cells(lMatch).Value
ArticleDeCourrier.Subject = "Mot de passe oubliée"
strMessage = "Bonjour, " & Worksheets("Admin").Range("A:A").Cells(lMatch).Value & Chr(10)
strMessage = strMessage & "Ceci est un e-mail généré automatiquement." & Chr(10)
strMessage = strMessage & "Voici votre mot de passe: " & Worksheets("Admin").Range("B:B").Cells(lMatch).Value & Chr(10)
strMessage = strMessage & "Cordialement"
ArticleDeCourrier.Body = strMessage
ArticleDeCourrier.Send

Set ol = Nothing

End Sub

Merci d'avance pour votre aide

 

[ploz]

Re : mail selon choix dans combobox

sa me dit erreur de compilation

 

[ploz]

Re : mail selon choix dans combobox

par erreur j'ai effacer le module donc j'ai repris le code plus haut et il me dit qu'il y a une erreur a ce niveau

For i = 2 To lig

 

[ploz]

Re : mail selon choix dans combobox

peut tu m'envoyer ton classeur ou tu a mis le code car a l'heure actuel j'ai meme pas de ; qui sépare mes adresse mail :s

 

[ploz]

Re : mail selon choix dans combobox

bon je vais me coucher, histoire de ne pas m’énerver sur le module ^^ ( il ne se charge toujours pas ) merci de ton aide en tout cas bonne nuit

 

[Lone-wolf]

Re : mail selon choix dans combobox

Re,

Private Sub f_b_ok_Click()
    With Sheets("Données") 'CORRIGE LE NOM DE LA FEUILLE
    .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Year(Now)   
    'LE RESTE DES LIGNES
 'Pour mettre l'année tu peux aussi faire comme ceci : Year(Date)   - Now donne date et heure 
  End With


Sub dates()
With Sheets("données").Select   ' C'EST FAUX - PAS BESOIN DE SELECT ET DE WITH POUR SI PEU.
Sheets("données").Range("A20") =  Format(date_test, "yyyy")

 'ENLÈVE UCASE - INUTILE SUR DES CHIFFRES - 2016 N'EST PAS ÉCRIT EN LETTRE
 .Range("A20") = UCase(Format(date_test, "yyyy"))
 End Sub

Crée un bouton en le nommant "CmdEnvoyer", reprend le code du post #22 sans Private Sub -End Sub et clique sur le bouton que tu viens de créer. Et supprime les liens des emails sinon gros problèmes.



A+ et bonne nuit à toi aussi 😎

 

[ploz]

Re : mail selon choix dans combobox

Bonjour,

merci pour toutes ces informations je test en fin de journée apres le boulot =)

 

[Lone-wolf]

Re : mail selon choix dans combobox

Bonjour ploz,

en PJ, fichier exemple sans utilisation du formulaire. Clique sur le bouton Enregistrer et regarde dans la feuille Données.


A+ 😎

 

[ploz]

Re : mail selon choix dans combobox

Merci,

je prefere rester sur l'utilisation du formulaire parce que enfaite le fichier sera sur different ordi sur un reseau chaque ordi sera accessible par n'importe qui afin de crée une fiche si il y a risque ect ...

 

[Lone-wolf]

Re : mail selon choix dans combobox

Bonsoir ploz,

OK. Mais tu peux prendre la macro comme exemple pour parfaire le formulaire, parce que le tien est un meli melo?! Si tu vois ce que je veux dire.



A+ 😎

 

[ploz]

Re : mail selon choix dans combobox

bonjour,

oui oui ^^ je c 'est que c'est un meli melo =)