Userform pour créer un Email

[Vbapprentis]

Bonjour,

je souhaite préremplir des mails par l'intermédiaire d'un userform, mes besoins sont les suivants:

A)choisir le compte avec lequel je vais envoyer le message
Pas encore trouvé de solution

B) Remplir objet du mail
Solution trouve je le remplis par une listbox ou et une textox

C)Préremplir le texte du message
- Afficher le compte qui envois Pas encore trouvé de solution
- Mettre la date ok
- Mes références de l'affaire ok gràce a un textbox
- Les réferences de l'affaire de mon destinataire ok gràce a un textbox
- Insérer une signature corepsondant au compte qui envois pas encore penchés sur le problème


1ère étape je crée le mail et je lance l'userform gràace à un bouton

Code :

1
2
3
4
5
6
7
Sub CommandButton1_Click()
'attention le commandbutton1 ici est dans module 1 pas dans userform
 
Set myOLItem = Application.CreateItem(0)
myOLItem.Display
UserForm1.Show
End Sub

2ème étape
je préremplis mon userform

3ème je clique sur le bouton validation(command_button) qui dois aller coller les valeurs préremplis du mail au bon endroit.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public myOLItem
 
Sub CommandButton1_Click()
UserForm1.hide
Dim oitem
Set oitem = ActiveInspector.CurrentItem
 
'Intitulé du mail
oitem.Subject = UserForm1.TextBox1
 
'Préremplissage du contenu du mail
oitem.Body = SenderName & Chr(13) & "N/Réfé :" & UserForm1.TextBox2 & Chr(13) & "V/Réfé :" & UserForm1.TextBox3 & Chr(13) & Now
 
End Sub

Voilà je sèche sur choisir les comptes, ecrire dans mon mail le nom du compte avec lequel je vais envoyer le mail, etc,comme prévu plus haut.

J'ai lu les interventions d'oliv mais je suis perdu, je souhaite choisir mon compte en tre 2 par un option_button

Merci si vous avez des idées