Discussion :

[diaboloche]

Bonjour,

Je suis dans un fichier *.vbs.
Je veux envoyer un email en passant par le raccourcis clavier (et évitant .Send), voici le code :

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
20
21
22
23
24
25
26
27
28
 
 
 
' cree un objet Outlook 14:16 6/11/2002
Set app = CreateObject("outlook.application")
 
' creer mail
Set mail = app.CreateItem(0)
 
' destinataire
' entrer ici l'adresse de destination
mail.To = "nd@e.be"
 
' objet
mail.Subject = "voici les fichiers demandés "
 
'corps mail
w = "fichier en piece jointe"
 
mail.Body = w
' pièce(s) jointe(s)
 
' envoi mail
'mail.Send
 
mail.Display
'SendKeys "%{v}", true
SendKeys ("^V")

SendKeys n'est pas reconnu... Quelqu'un peut m'aider ?

[Oliv-]

Salut,
Il y a d'autres méthodes pour envoyer un mail sans le message de sécurité.

Faut utiliser par exemple CDO.

Expliques un peu ton besoin.