e-mail Netscape Messenger en VBA

Bonjour.
Alors si meme le serpent à plume à besoin d'envoyer des e-mail, tout fout le
camp !
Réponse pour le fun, je n'ai pas la solution, trop fort pour moi.
Cordialement.

Bonsoir,

Je voudrais pouvoir envoyer un e-mail avec Netscape Messenger depuis une
macro VBA EXCEL 97 ou EXCEL 2000, sous Windows NT ou XP.
L'e-mail serait composé de : destinataires, objet, message.
Aucune idée de la manière de procéder.
Pourriez-vous m'aider ?
Merci d'avance.
Cordialement.

Bonsoir,

Voici une solution, pas très élégante, mais qui fonctionne, avec WINDOWS XP,
EXCEL 2000 et NETSCAPE COMMUNICATOR 4.75.
Il faut être connecté au serveur d'e-mail (pas de gestion d'envoi différé).
C'est basé sur un appel par ligne de commande de Netscape Communicator en
mode composition de message, avec passage d'un fichier de paramètres
contenant destinataires, objet et message.
Si vous avez des améliorations, je suis preneur.
Je suis également intéressé par vos essais avec d'autres versions des
logiciels impliqués.
Enfin, si quelqu'un a une idée pour la gestion d'envoi différé... ((il
semble que le raccourci CTRL SHIFT ENTREE permette d'envoyer un message en
différé; je n'ai pas essayé; mais comment savoir en VBA si on est ou non
connecté au serveur e-mail ?)
Bien cordialement.

Tempfile = Environ("Tmp") & "Mon fichier temporaire.txt"
Composer = """" & Environ("ProgramFiles") &
"NetscapeCommunicatorProgramnetscape.exe"" -compose "
Appel = Composer & """" & Tempfile & """"
Dest1 = "machin@aol.com"
Dest2 = "bidule@free.fr"
Dest3 = "spy@who_loved_me.org"
Objet = "Titre du message"
Message = "Corps du message" & vbNewLine & "(plusieurs lignes si on veut)"

Set fs = CreateObject("Scripting.FileSystemObject") ' création d'un
fichier temporaire
Set a = fs.CreateTextFile(Tempfile, True)
a.WriteLine ("to:" & Dest1)
a.WriteLine ("cc:" & Dest2 & "," & Dest3)
a.WriteLine ("subject:" & Objet)
a.WriteLine ("")
a.WriteLine (Message)
a.WriteLine ("(là aussi, on peut rajouter des lignes)")
a.Close
Shell Appel ' lancement Netscape avec fichier temporaire en
paramètre
SendKeys "^{ENTER}" ' envoie un CTRL ENTREE vers la fenêtre (Netscape)
active, raccourci pour 'envoyer'
End Sub

"Quetzalcoatl" <quetzalHIHIHIcoatl@free.fr.invalid> a écrit dans le message
de news: 4434589c$0$19683$8fcfb975@news.wanadoo.fr...

Bonsoir,

Je voudrais pouvoir envoyer un e-mail avec Netscape Messenger depuis une
macro VBA EXCEL 97 ou EXCEL 2000, sous Windows NT ou XP.
L'e-mail serait composé de : destinataires, objet, message.
Aucune idée de la manière de procéder.
Pourriez-vous m'aider ?
Merci d'avance.
Cordialement.