est-il possible d'envoyer un mail en VB ?

Question

quelqu'un pourrait-il me filer un code qui envoie simplement un mail ? parce que quelle que soit la source que je teste à ce sujet, je me fait éjecter par les serveurs smtp...
Est-ce vraiment possible ?

Emoutheos

nhervagault · Answer

Essaie de passer par outlook avec une communication COM
si les envois de mails en SMTP direct ne fonctionne pas

http://www.vbfrance.com/code.aspx?ID=3058

MAPI est deconseillé trop bas niveau au niveau fonctionnel ;-)
http://groups.google.fr/groups?q=outlook+mail+vb&hl=fr&lr=&ie=UTF-8&selm=ebcc8p8WBHA.2148%40tkmsftngp03&rnum=2

il faut avoir outlook (pas express celui d'office) sur son poste

Voila

Emoutheos · Answer

Merci nhervagault. Je vais essayer ca !!
@+

guillaume7520 · Answer

Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "je@teste.com"
MonMessage.Subject = "J'en parle"
MonMessage.body = "Il fait beau !"
MonMessage.send
Set MonOutlook = Nothing

Emoutheos · Answer

Merci a toi, Guillaume !

Au fait, au risque d'etre exigent... :-) !! Est-ce possible de le faire sans utiliser Outlook ? (de manière a ce que le programme puisse tourner sur les pc n'ayant pas ce logiciel ?)

nhervagault · Answer

OUI,

tu peux passer par les socket et smtp

pour cela cherche la RFC SMTP

Tu ouvres une socket (winsock)
sur le port SMTP (110 je crois)

et apres
tu ecris le message
ca doit ressmbler à

HELLO machine
ok
FROM toi@toi..
ok
TO moi@...
ok
DATA
blabla
.
. (le point seul sur une ligne --> fin tu texte)

ok --> message du serveur smtp

Apres pour l'envoi des pieces jointes il faut jongler avec 
les mimetypes. voir les RFC.
et google pour des exemples ;-)

voila

bonne prog

Emoutheos · Answer

trankil !!

Merci bcp !!

  ;-)

Est-il possible d'envoyer un mail en VB ?

6 réponses

Discussions similaires