lancement d'un userform à la création d'un mail [Résolu]

[Vbapprentis]

Bonjour,

J'ai crée un userform que je souhaite lancer quand je demande à créer un nouveau mail

J'ai procédé comme ceci

Dans

Code :

1
2
3
4
5
 
Cette session outlook
Private Sub Application_NewMail()
userform1.show
End Sub

Sauf qu'il se lance pas

[Oliv-]

SAlut,

l'événement newmail "Survient lors de la réception d'un ou plusieurs messages électroniques dans la boîte de réception" voici ce que dit l'aide si tu selectionnes newmail DANS VBE + F1.

Pour lancer une macro à la création d'un nouveau mail il faut modifier le formulaire de ce mail et y inclure du vbscript.


Oliv'

[Vbapprentis]

Bonjour,

Oui j'aurais du aller fouiller dans l'aide,

je vais adapter ce code et le mettre sur un bouton

Sub CommandButton1_Click()
Set myOLItem = Application.CreateItem(0)
myOLItem.Subject = "Sample item"
myOLItem.Body = "This is a sample message."
myOLItem.Display
Userform1.show
End Sub

[Vbapprentis]

Bonjour,

J'ai un autre soucis, une fois mon userform remplis, je veux transcrire les données sur mon mail créer, comme il n'est plus actif etant donne que j'avais lancé l'userform, j'arrive pas a coller les données remplis dans mon userform, aurez vous une idée?

Sub CommandButton1_Click()
Set myOLItem = Application.CreateItem(0)
myOLItem.Display
Userform1.show
End Sub

Commandbutton2_click()
myOLItem.Subject = Textbox1
myOLItem.Body = Textbox3
End sub

[Heureux-oli]

Essaie :

Code :

Me.textBox.value

[Oliv-]

Salut,
Le code peut varier selon si tu utilises word comme éditeur ou pas.
Si tu ne l'utilises pas (avant ol2007) , essayes de déclarer ta variable tout en haut comme cela
PUBLIC myOLItem

sinon ton userform se trouve où ? dans les macros ou dans ton formulaire de mail ?

pour utiliser le mail actif

Dim oitem
Set oitem = ActiveInspector.CurrentItem

Oliv'

[Vbapprentis]

Bonjour,

j'ai outlook 2000,l'userform il est dans Projet1\Feuilles\USerform1

[Vbapprentis]

Bonjour,

merci pour vos réponses. CAtteau13 j'ai un peu modifiés le code pour que çà marche

Code :

1
2
3
4
5
6
7
8
9
10
Public myOLItem
 
Sub CommandButton1_Click()
UserForm1.hide
Dim oitem
Set oitem = ActiveInspector.CurrentItem
oitem.Subject = UserForm1.TextBox1
oitem.Body = UserForm1.TextBox2
 
End Sub

Au lieu de mettre MyoLitem comme dans l'exemple il faut mettre Oitem

[Vbapprentis]

Re bonjour,

Mon userform commence à prendre forme

il me reste plus qu'a insérer le nom du compte qui envoie les mail en en tete.

Quelle est la procédure pour changer de boite d'envois par VBA?

Je vais fouiller, et je vous tiens au courant