WDForge.org - Forums

Envoi mail en prog

Sujet: Envoi mail en prog
par LostIn sur 24/5/2006 16:16:54

Bonjour

je galère pour envoyer un mail automatique en fin de programme pour me faire un compte rendu.

Je suis sur un domaine W2000 Server.
Un serveur exchange 5.5.
un CLient outlook 2003 sur mon PC.

Donc je veux envoyer un mail sur plusieurs boites dont la mienne depuis mon poste qui reste allumé la nuit et qui execute des taches.

Post posé sur pcosft mais sans réponse concluante pour moi.

help me. merci pour vos contributions.

Ca me surprend, car sous Access, je fais un truc tout simple qui marche super bien.
code ci dessous.

////
Public Sub EnvoiMailAutomatique(ByVal pTo As String, ByVal pSubject As String, ByVal pBody As String)
Dim wOutlook As Object
Dim wMail As Object
' On crée une instance d'Outlook :
Set wOutlook = CreateObject("Outlook.Application")
' Et on crée un élément Outlook, qui sera un message E-Mail :
Set wMail = wOutlook.CreateItem(0)
wMail.To = pTo
wMail.Subject = pSubject
wMail.Body = pBody
wMail.send
Set wOutlook = Nothing
End Sub
///