Script pour envoi de mail en VB via Lotus Notes

13doudou13 Messages postés 6 Date d'inscription vendredi 13 octobre 2006 Statut Membre Dernière intervention 5 juin 2009 - 5 sept. 2007 à 14:31
13doudou13 Messages postés 6 Date d'inscription vendredi 13 octobre 2006 Statut Membre Dernière intervention 5 juin 2009 - 12 sept. 2007 à 15:44
Bonjour , apres moultes recherches, je n'ai pu trouver un script qui me permette d'envoyer un mail via Notes ( simple sans docs ) avec :
ouverture session sur serveur
et envoi .

pour l'ouverture de session j'en etait la :

Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize ("*********")
Set db = s.GetDatabase ("****","d:\Lotus\Domino\Data\mail\*****")

mais je ne parvient pas a continuer .

si quequ'un peut m'aider .
Merci .

8 réponses

cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
12 sept. 2007 à 12:57
J'espere que ca t'aidera.

On error resume next
'definit les objets
Dim Session As Object, doc As Object

'Envoie du mail
Set Session = CreateObject("Notes.NotesSession")

If Err <> 0 And Err <> 3021 Then
    MsgBox Err.Description & " " & Err, vbCritical, "Lotus notes not found"
    Me.MousePointer = 0
    Exit Sub
End If

Set Db = Session.GETDATABASE(vbNullString, vbNullString)
Call Db.OPENMAIL

Set doc = Db.CREATEDOCUMENT()
With doc
    .Form = "Memo"
    .SendTo = "Adresse@email.com"
    .CopyTo = vbNullString
    .Subject = "Sujet du mail"
    .Body = "Bla Bla bla le message"
    .From = Session.COMMONUSERNAME
    .PostedDate = Now
    .SAVEMESSAGEONSEND = True
End With

Call doc.Send(True)

If Err = 0 Then
    MsgBox "Le mail a bien été distribué"
Else
  Msgbox "Une erreur est survenue pendant l'envoie du mail"
End If

Set Session = Nothing
Set Db = Nothing
Set doc = Nothing
0
13doudou13 Messages postés 6 Date d'inscription vendredi 13 octobre 2006 Statut Membre Dernière intervention 5 juin 2009
12 sept. 2007 à 14:29
Merci pour ta reponse ..
j'ai un message d'erreur a la ligne 3 ....
script enregistre en .vbs .
visiblement , c'est le "as object" qui pose probleme .
0
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
12 sept. 2007 à 14:33
Dans ce cas ci ce n'est pas un vbs mais c'est du code pour VB6 , je ne connais pas Vbscript malheureusement !
mais en vb6 ca fonctionne nickel c'est ce que j'utilise .
0
13doudou13 Messages postés 6 Date d'inscription vendredi 13 octobre 2006 Statut Membre Dernière intervention 5 juin 2009
12 sept. 2007 à 14:45
et je fais comment pour pouvoir installer ca sur un poste , en fait ca doit etre une tache qui sera planifiee ?...
je suis debutant dans ce genre de progs ... et suis un peu dans le Cac....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
12 sept. 2007 à 14:55
Il suffit de coller le code dans un evenement VB. quel est le but ? juste envoye un tout les X ? si c'est ca j'ai fait un autre utils qui permet d'envoye des mail à la ligne de commande et pas specialement avec Lotus mais avec n'importe quel relay smtp .
ps: si tu n'a pas vb dit moi exactement ce que doit faire le prog je peu te le compiler avec ce que tu a besoin .
0
13doudou13 Messages postés 6 Date d'inscription vendredi 13 octobre 2006 Statut Membre Dernière intervention 5 juin 2009
12 sept. 2007 à 15:04
Oui en fait je n'ai pas VB ( j'ai pris des fonctions de responsable info ya peu et en fait je dois tout faire lol) .
Donc le but est d'envoyer un mail preformaté toutes les semaines (tache planifiee) via Notes .
Mais je veux bien essayer de compiler moi meme si j'ai un peu d'aide ...
0
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
12 sept. 2007 à 15:29
je vais t'envoye une version de sender de mail , je pensse que ca sera plus facile et je te join le code source comme ca, le jour ou tu te procure vb tu pourra le modifer à ta guise !

où je peus envoye le tout  ?
0
13doudou13 Messages postés 6 Date d'inscription vendredi 13 octobre 2006 Statut Membre Dernière intervention 5 juin 2009
12 sept. 2007 à 15:44
je t'ai envoye un mail perso .
0
Rejoignez-nous