Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Email ? Grace VBA dans Excel.

1 view
Skip to first unread message

TALL Yaya

unread,
Oct 4, 2003, 7:21:21 PM10/4/03
to
Bonjour,

Est qu'il est possible de faire un code VBA dans Excel qui me permettrai
d'envoyer un message Email a un correspondant particulier pour lui prévenir
par exemple qu'un fichier et disponible pour lui (ou a était modifier pour
lui) sans pour autant lui envoyer le fichier...

Merci de votre aide.


Philippe.R

unread,
Oct 5, 2003, 1:37:39 AM10/5/03
to
Bonjour Tall Yaya,
Voici une procédure de Frédéric :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/MailAvecOutlookExpress.txt

(il y en a d'autres sur son site)
--
Amicales Salutations
A_S_r...@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"TALL Yaya" <tall...@wanadoo.fr> a écrit dans le message de
news:%23Sbd54s...@TK2MSFTNGP12.phx.gbl...

TALL Yaya

unread,
Oct 5, 2003, 4:46:30 AM10/5/03
to
Bonjour,

Comment je peux faire pour qu'il s'envoie automatiquement sans appuyer sur
"envoyer"

Merci de votre aide.

"Philippe.R" <A_S_r...@wanadoo.fr> a écrit dans le message de news:
u0i4ILwi...@TK2MSFTNGP10.phx.gbl...

Philippe.R

unread,
Oct 5, 2003, 5:12:04 AM10/5/03
to
Re,

> Comment je peux faire pour qu'il s'envoie automatiquement sans appuyer sur
> "envoyer"

Chez moi le raccourci clavier pour "Envoyer" est Alt+S ; je serai donc tenté d'utiliser un sendkeys
regarde ce qu'il en est chez toi pour le raccourci et ajoute cette ligne (non testée) :

SendKeys "{ALT}{S}"


--
Amicales Salutations
A_S_r...@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"TALL Yaya" <tall...@wanadoo.fr> a écrit dans le message de

news:u62fs0xi...@TK2MSFTNGP10.phx.gbl...

TALL Yaya

unread,
Oct 5, 2003, 5:55:55 AM10/5/03
to
Bonjour,

J'ai un message d'erreur de type :
"Erreur de compilation, Argument non facultatif"
Voici mon code :

Sub EnvoyeMessage()
Dim dest$, sujet$, texte$

dest = "tall...@wanadoo.fr"
sujet = "Test"
texte = "Bonjour, Merci de prendre note que je vais vous faire parvenir
ma note de frais a ce jour, Bonne reception"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", "

SendKeys
End Sub

Bonne reception,

"Philippe.R" <A_S_r...@wanadoo.fr> a écrit dans le message de news:

#K#o8CyiD...@TK2MSFTNGP10.phx.gbl...

Philippe.R

unread,
Oct 5, 2003, 7:25:05 AM10/5/03
to
Re,

> "Erreur de compilation, Argument non facultatif"
> SendKeys
> End Sub

Il te faut encore, derrière l'instruction SendKeys, indiquer le code des touches appropriées , comme
"{ALT}{S}" chez moi

--
Amicales Salutations
A_S_r...@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"TALL Yaya" <tall...@wanadoo.fr> a écrit dans le message de

news:%23uv2eby...@TK2MSFTNGP12.phx.gbl...

0 new messages