Discussion :

[decour]

Bonsoir,

J'ai récupéré le code suivant qui permet d'envoyer un message via outlook.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub lst_results_DblClick(Cancel As Integer)
On Error GoTo Err_Command27_Click
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.To = "truc@machin.com"
  MonMessage.Open
  Set MonOutlook = Nothing
  Exit Sub
 
Err_Command27_Click:
    MsgBox ("erreur lors de l'ouverture d'outlook")
    Resume Exit_Command27_Click
Exit_Command27_Click:
    Exit Sub
 
End Sub

Mais comment ouvrir le massage afin de le modifier?

J'ai essayé avec MonMessage.Open, cela ne onctionne pas.

Merci de vos idées!!

[stéphane_ais2]

Salut,

Peut-être que tu peux essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Display

...à voir :

SE

[Muhad'hib]

Salut,

Tu peux aussi compléter ton mail par code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Titre du mail
MonMessage.subject = "Demande d'information ..."
'destinataire en copie
MonMessage.cc = "truccopie@machin.com"
'corp du message
MonMessage.Body = "Bonjour," & vbcrlf & "Je raconte ma vie ...."
'pièce jointe
MonMessage.Attachments.Add "C:\toto\toto.doc"
'accusé de lecture
MonMessage.ReadReceiptRequested = True
'envoi direct du mail sans confirmation de l'utilisateur
MonMessage.Send

A+

[sentenza]

Comment faire la meme chose pour Outlook Express ?
Ca m'interesserait...

Tu peux aussi compléter ton mail par code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Titre du mail 
MonMessage.subject = "Demande d'information ..." 
'destinataire en copie 
MonMessage.cc = "truccopie@machin.com" 
'corp du message 
MonMessage.Body = "Bonjour," & vbcrlf & "Je raconte ma vie ...." 
'pièce jointe 
MonMessage.Attachments.Add "C:\toto\toto.doc" 
'accusé de lecture 
MonMessage.ReadReceiptRequested = True 
'envoi direct du mail sans confirmation de l'utilisateur 
MonMessage.Send

Mais bon chez moi ca ne marche pas cette methode... Etrange...

[Muhad'hib]

Salut,

Pour Outlook Express je sais pas mais chez moi avec Outlook, ça fonctionne.

Ca te fais quelmessage toi ?

A+

[sentenza]

Ben justement ca me met aucun message...


J'ai bien la ptite fenetre outlook "Qqun essaye d'envoyer un message via outlook, etc..." je met Oui et apres rien...