DominoArea.org [Archive]

Bonjour.

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...

Bonjour,
Je souhaiterais également envoyer un mail automatiquement tous les jours. J'ai déjà paramétré la partie planification de l'agent, mais le contenu .. je bloque.
J'ai mis en place les sources ci-dessus en les adaptant, malheureusement cela ne passe pas.
Je ne suis pas très à l'aise avec le dev lotus .. pouvez vous m'aider SVP !!! merci d'avance

Je suis très chargé en ce moment, afin de pouvoir t'aider tu peux donner plus de détails sur ce qui ne passe pas ?

Designer ne valide pas le dev car il manque "opérateur ou point-virgule manquant" ....

Ce code est en LS, pas en formule

ok merci ...... mais cela ne fonctionne toujours pas. Je ne suis vraiment pas faite pour le dev !!!! lol

J'ai fini par trouver.
merci bcp