création automatique de mail par vba

[nico0007]

Bonjour le forum,

J'aimerai créer des mails dont les champs (destinataire, sujet, corps) seraient remplis automatiquement d'après les renseignements d'un userform.
Je m'explique:
j'aimerai pouvoir lancer une macro qui m'afficherait un UserForm avec des ListBox, Label ou autres. Ces champs seraient alors remplis par l'utilisateur. Lorsque celui-ci aura remplis tous les champs, un clic sur un bouton lui lancera outlook et lui affichera son mail avec toutes les indications qu'il aura noté dans l'UserForm. Il ne lui restera plus qu'à envoyer le mail.
C'est pour la création de mails génériques avec tout le temps les mêmes adresse de messagerie, les mêmes sujets et corps de mail à utiliser...

Merci de votre aide...

Nico

[Heureux-oli]

Peut-être une piste ?

Ici

[nico0007]

Merci à toi pour ta réponse rapide!!

J'ai travaillé un peu de mon côté et choisie cette solution assez simple:

Code :

1
2
3
4
5
6
7
8
9
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
       .To = ComboBox1.Value
       .Subject = ComboBox2.Value
       .Body = TextBox1.Value
       .Send
End With

Je commence juste donc ce code reste très perfectible...

Ciao

[nico0007]

Bon bah je savais bien que j'allais sécher qqpart...

J'aimerai en effet pouvoir mettre une pièce jointe à mon envoi. Pour ça j'aimerai pouvoir ouvrir une boîte de dialogue type Open qui me permettrait d'attacher le fichier choisie.
Une idée?

Merci

[Heureux-oli]

Ben oui, il te suffit d'ouvrir une boîte de dialogue pour avoir une variable qui serait le nom et le chemin du fichier et de l'attacher.

[nico0007]

Bonjour,
Oui je sais que je dois ouvrir une boîte de dialogue et récupérer le chemin du fichier, seulement je n'arrive pas à trouver la syntaxe. J'ai essayé un tas de fonction qui ne me donnent pas satisfaction...
De plus j'ai écris ce code dans excel avec une userform Excel, aurai-je dû faire autrement?

Merci

[Oliv-]

Pourquoi excel ?

[nico0007]

lol
Parce que je n'ai pas d'environnement de dev VB. J'utilise donc l'environnement bureautique d'Excel. Une macro que les user pourront utiliser facilement...

[Heureux-oli]

Mais on peut très bien faire des UserForm avec VBA en Outlook, on le fait de la même façon qu'avec Excel !

[Oliv-]

Alors pourquoi ne pas créer ton userform dans outlook ? tu éviteras en plus les messages de sécurité ?

pour ajouter un pj c'est :
objOutlookMsg.Attachments.add "z:\ATT666206.gif"
objOutlookMsg.Attachments.add ("z:\madonna.bmp")
à répéter autant de fois que de PJ

Pour selectionner un fichier tu peux utiliser soit un objet excel

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub SelectionneUnFichier()
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
Set Toto = appExcel.FileDialog(msoFileDialogFilePicker)
Toto.Show
appExcel.Visible = False
For Each fichier In Toto.SelectedItems
MsgBox fichier
Next
Set appExcel = Nothing
End Sub

Comme tu as un userform tu peux ajouter un composant "Microsoft Common Dialog Control 6.0" (comdlg32.ocx) (clic droit dans la boite à outils)

Avec

Code :

1
2
3
4
Private Sub UserForm_Initialize()
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub

ou si le mail existe déjà la boite de dialogue insérer fichier.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ShowDialog()
    Dim objInsp
    Dim colCB
    Dim objCBB
    On Error Resume Next
    Set objInsp = ActiveInspector
    Set colCB = objInsp.CommandBars
    Set objCBB = colCB.FindControl(, 1079) 'Insérer un Fichier
    If Not objCBB Is Nothing Then
       Set titi = objCBB.Execute
    End If
    MsgBox objCBB
    Set objCBB = Nothing
    Set colCB = Nothing
    Set objInsp = Nothing
End Sub