Discussion :

[ticain]

Bonjour j'aimerais savoir comment faire pour envoyer un mail automatiquement.

J'aimerais faire une tache planifiée sur un srv qui m'envoie un mail sur mon poste quand le code trouve un résultat.

Merci

[mat.M]

Regarder autour du controle msinet.ocx( Ms Internet Protocol 6.0) dans la boite à outil à tout hasard.
Mais je suis sur que cette question a déjà été posée

[Delbeke]

Nan, MsInet ne resoudra pas le probleme, si le poste est utilisé avec un client email acceptant mapi, il faut utiliser le composant MsMApi32.ocx

[Zaal]

MAPI avec outlook 2003 genere une pop-up desagreable (suite a Sasser) qui demande pour laisser un programme externe acceder a l appli.

[Delbeke]

Cest sur que taper directement niveau SMTP est une bonne solution. L'exemple fourni par le lien de Zaal traite du protocole SMTP, c'est déjà pas mal, mais il oublie l' encodage Mime du fichier transmis (le mail) et là c'est assez galère et encore plus s'il y a des pièces jointes.

[Zaal]

Le code SMTP du lien fonctionne tres bien en interne dans mon entreprise

[Delbeke]

Je n'en disconviens point, mais tu ne peux envoyer que des messages texte, sans piece jointe (le parametre Message as string de la fonction.
Pour faire des pieces jointes, il faut créer un string autrement plus complexe qu'un simple hello.

[thierry007]

comme dit plus haut par Mat

Mais je suis sur que cette question a déjà été posée

Ceci devrait peut être d'aider, il a été traité sur le forum VB6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim config As CDO.Configuration
Dim email As CDO.Message
 
Set config = New CDO.Configuration
With config.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.isp.com"
    .Update
End With
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = "expediteur@mondomaine.com"
    .To = "destinataire@domaine.com"
    .Subject = "Sujet"
    .Textbody = "Blabla"
    .Send
End With

et tu peux envoyé des pièces jointes

A+ Thierry