Script pour envoi de mail en VB via Lotus Notes

Signaler
Messages postés
6
Date d'inscription
vendredi 13 octobre 2006
Statut
Membre
Dernière intervention
5 juin 2009
-
Messages postés
6
Date d'inscription
vendredi 13 octobre 2006
Statut
Membre
Dernière intervention
5 juin 2009
-
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

Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

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
Messages postés
6
Date d'inscription
vendredi 13 octobre 2006
Statut
Membre
Dernière intervention
5 juin 2009

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 .
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

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 .
Messages postés
6
Date d'inscription
vendredi 13 octobre 2006
Statut
Membre
Dernière intervention
5 juin 2009

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....
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

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 .
Messages postés
6
Date d'inscription
vendredi 13 octobre 2006
Statut
Membre
Dernière intervention
5 juin 2009

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 ...
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

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  ?
Messages postés
6
Date d'inscription
vendredi 13 octobre 2006
Statut
Membre
Dernière intervention
5 juin 2009

je t'ai envoye un mail perso .