Le premier site francophone dédié au développement Pocket PC

Comment envoyer un mail depuis eVB ?

Le programme pMail

Le moyen le plus simple pour envoyer un mail avec un Pocket PC est de lancer le programme "pmail.exe" avec les bons paramètres sur sa ligne de commande.

Les paramètres de la ligne de commande

Le programme pMail accepte 4 paramètres :

Les valeurs de ces paramètres doivent être incluses entre des guillemets :

-to "webmaster@codeppc.com"
-subject "essai"
-body "ceci est le texte du mail"
-attach "\my documents\image.bmp"

L'instruction eVB qui retourne les guillemets est Chr(34).

Appel depuis eVB

En utilisant la fonction CreateProcess (voir sa mise en oeuvre dans l'article "Comment lancer un autre programme depuis eVB"), comme ceci :

Dim wTo As String
Dim wSubject As String
Dim wBody As String
Dim wAttach As String
Dim wCommandLine As String

Rem On prépare les paramètres du mail
wTo = "webmaster@codeppc.com"
wSubject = "Essai"
wBody = "Texte du mail" & vbcrlf & "Ligne2" & vbcrlf & "Ligne 3"
wAttach = "\My documents\image.bmp"

Rem On prépare la ligne de commande
wCommandLine = "-to " & chr(34) & wTo & Chr(34)
wCommandLine = wCommandLine & " -subject " & chr(34) & wSubject & chr(34)
wCommandLine = wCommandLine & " -body " & chr(34) & wBody & chr(34)
wCommandLine = wCommandLine & " -attach " & chr(34) & wAttach & chr(34)

Rem On lance pmail avec sa ligne de commande
Call CreateProcess("pmail.exe", wCommandLine, 0, 0, 0, 0, 0, 0, 0, 0)

Voilà, maitenant vous pouvez automatiser avec eVB l'envoi de mails, pratique non ?

Stéphane Sibué