Ci-après le code d'un envoi de mail automatique.
La classe MAIL_TO_MAILBOX est celle de Oguruma, du 04/06/2006. On la trouve sur ce forum. Merci à lui.
Ce code se trouve dans une base quelconque, en l'occurence pas une messagerie mais une base spécifique de divers agents planifiés.
Planif : "Hebdo - Tous les docs de la base"
Sub Initialize
'==============================================
' Cet agent est planifié pour s'exécuter chaque lundi à 9h30
' Il envoie les cubes OPEN à leurs différents destinataires
'==============================================
' Pour création du mail
Dim hSession As NotesSession
Dim hDb As NotesDatabase
Dim hMail1 As Mail
Set hSession=New NotesSession
Set hDb=hSession.CurrentDatabase
Dim texte As String
texte=|Bonjour ,
Vous venez de recevoir la dernière mise à jour de votre base statistique Hebdomadaire et Mensuelle.
Bla bla
Bonne réception.
|
On Error Resume Next
' Dest 1
'====
' Test si fichiers à envoyer existent
If Dir$("serveur\doss\sous doss\fichier1.zip" ) <>"" and Dir$("serveur\doss\sous doss\fichier2.zip" ) <>"" Then
' Création du mail
Set hMail1=New Mail(True,False,"")
hMail1.Subject="OPEN - Envoi des statistiques"
hMail1.FromBy="adresse@domaine.fr"
Redim vDest(2)
vDest(0) = "nom1.prenom1@domaine.com"
vDest(1) = "nom2.prenom2@domaine.com"
Call hMail1.AddSendTo(vDest)
' Texte du mail
Call hMail1.SetBody(texte,True)
' Insertion des pièces jointes
Redim vFiles(2)
vFiles(0)="serveur\doss\sous doss\fichier1.zip"
vFiles(1)="serveur\doss\sous doss\fichier2.zip"
Call hMail1.SetAttachedFiles(vFiles)
Call hMail1.Send(False)
End If
End Sub
J'ai fait simple, la classe de Christian permet plein de mises en formes, CC, CCC, etc... etc...
