mail selon choix dans combobox

ploz · 11 Mars 2016

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

Code:

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

Lone-wolf · 11 Mars 2016

Re : mail selon choix dans combobox

Bonsoir ploz,

ça serait bien si tu joint le fichier en question. Sinon

Code:

ArticleDeCourrier.To = Worksheets("Admin").Range("C:C").Cells(lMatch).Value
ArticleDeCourrier.CC =   'Cellule Monsieur A &  ";"  & Cellule Monsieur B
ArticleDeCourrier.Attachments.Add          'Pièce jointe

A+

ploz · 11 Mars 2016

Re : mail selon choix dans combobox

Bonsoir,

merci pour ta réponse le soucis c'est qu'il y a plein de donnée conf et sa prendrais trop de temps à supp :s

cependant si je fait cela

ArticleDeCourrier.To = combobox

tu pense que sa pourrais marcher ?

étant debutant je me pose la questions ^^

Lone-wolf · 11 Mars 2016

Re : mail selon choix dans combobox

Re,

Oui, mais c'est ComboBox1.Text. Sinon tu peux aussi fare comme ceci

Dim EnvoisA As String

EnvoisA = ComboBox1.Text

ArticleDeCourrier.To = EnvoisA

A+

ploz · 11 Mars 2016

Re : mail selon choix dans combobox

re =)

je v mettre mon userform dans un classeur vierge et le posté sa iras plus vite =)

ploz · 12 Mars 2016

Re : mail selon choix dans combobox

le voici =)

donc enfaite pour cette parti

Code:

'liste des départements
With departement_metier
End With

je voudrais pouvoir y mettre deux adresse mail a coté comme ca des qu'on clique sur le bouton enregister de l'userform sa envoie le mail au personne concerné

j'espere que tu voit ce que je veux dire :s

Lone-wolf · 12 Mars 2016

Re : mail selon choix dans combobox

Re ploz,

Crée une feuille comme Base de Données, tu y enregistre 3 - 4 noms Toto Tata Titi et toto1@gmail.com, tata2@live.fr etc. + données fictives(Departement 1 - 2 - 3 etc.). Après on passe à la suite(mais dans la matinée, il est l'heure de faire dodo maintenant ), ok?

A+

ploz · 12 Mars 2016

Re : mail selon choix dans combobox

ok =) plutot demain soir (tres tard dans la soirée) pour ma part si sa te dérange pas demain absent toute la journée et le soir des invités

Lone-wolf · 12 Mars 2016

Re : mail selon choix dans combobox

Bonjour ploz,

ou plutôt bonsoir vu ton arrivée si tardive.
Et étrangement tu en fais 13 à toi tout seul ( trèèèès en retard!! ) .

En PJ, mon fichier exemple pour que tu voies. Il y a juste le chemin pour le fichier pdf à modifier pour l'ajouter en pièce jointe. Ici j'ai deux combos, une pour l'expediteur l'autre pour les receveurs. Selectionne les deux combos puis sur Envoyer.

A+

ploz · 12 Mars 2016

Re : mail selon choix dans combobox

Bonjour,

passage en coup de vent =) merci beaucoup cependant je ne voit pas la feuille Data dans le classeur

Lone-wolf · 12 Mars 2016

Re : mail selon choix dans combobox

Bonjour ploz,

elle est masquée

A+

ploz · 12 Mars 2016

Re : mail selon choix dans combobox

re passage vite fait =)

comment je fais pour la demasquée pour modifier les infos ?

Lone-wolf · 12 Mars 2016

Re : mail selon choix dans combobox

Re,

ça commence à faire beaucoup de passages

Clic droit sur la feuille visible - Afficher.

A+

ploz · 12 Mars 2016

Re : mail selon choix dans combobox

re, vive le mobile =)

ploz · 12 Mars 2016

Re : mail selon choix dans combobox

la chose plus compliqué à faire sa va etre de l'intégrer à mon userform nan ?

mail selon choix dans combobox

ploz

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

ploz

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

ploz

XLDnaute Occasionnel

ploz

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

ploz

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

ploz

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

ploz

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

ploz

XLDnaute Occasionnel

ploz

XLDnaute Occasionnel

Discussions similaires