Envoi mail avec lotus notes 6.5

Version imprimable

27/06/2007, 10h11
ade94

Envoi mail avec lotus notes 6.5

Bonjour,

J'aimerais savoir si qqn connait des tuto sur les envois de mail en VBA en utilisant Lotus Notes version 6.5 de préférence.

Mci d'avance pour vos réponses

J'ai trouvé ce code la

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
    Dim session
    Dim db
    Dim doc
    Dim UserName
    Dim MailDbName
 
    Set session = CreateObject("Lotus.NotesSession")
    Call session.Initialize("password")
 
    UserName = session.UserName
    MsgBox UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    MsgBox MailDbName
 
    Set Maildb = session.GETDATABASE("", MailDbName)
    Set doc = Maildb.CREATEDOCUMENT()
    With doc
        Form = "Memo"
        sendTo = "blabla@wanadoo.fr"
        copyTo = "blabla@wanadoo.fr"
        subject = "Petit test"
        body = "Ceci est un petit test d'envoie de message"
        from = session.COMMONUSERNAME
        PostedDate = Now
        SAVEMESSAGEONSEND = True
    End With
    doc.Send 0
 
    Set session = Nothing
    Set Maildb = Nothing
    Set doc = Nothing

Un message d'erreur me dit : "la methode "Send" de l'objet 'Document' a échoué" à la ligne doc.Send 0

Savez-vs d'où cela peut venir ?

Mci

27/06/2007, 11h48
tieuphuong

je sais pas si ça peut aider mais tu as dans le tuto publipostage access le developpement d'un module d'envoie d'email sous outlook...

http://heureuxoli.developpez.com/publipostage/

la procedure doit être sensiblement la même, seule le nom de l'application devrait être à changer, non ?...

PS: tiens nous au courant car je vais bientôt être confronté au pbl! ;)
28/06/2007, 09h54
Lou Pitchoun

Salut,

Il y a des entrées dans la FAQ et les sources :
http://access.developpez.com/faq/?pa...ion#mail_lotus
http://access.developpez.com/sources...evisualisation
http://access.developpez.com/sources...NoteSauvegarde

Merci de penser à faire des recherches avant de poster :evil:
28/06/2007, 10h19
ade94
Mci pour ts ces liens :)

Malheureusement, le même problème n'est tjs pas résolu.

Le compilateur n'est pas trop cette syntaxe-là :
Code:

1 2 MailDoc.Send 0, Recipient
où Recipient est de type string correspondant au destinataire.

Connaissez vous la bonne syntaxe ?

Mci
28/06/2007, 11h44
Lou Pitchoun

la syntaxe est bonne : le problème est ailleurs.
28/06/2007, 11h52
Dolphy35
Citation:
Envoyé par ade94

Mci pour ts ces liens :)

Malheureusement, le même problème n'est tjs pas résolu.

Le compilateur n'est pas trop cette syntaxe-là :

Code:

1 2 MailDoc.Send 0, Recipient

où Recipient est de type string correspondant au destinataire.

Connaissez vous la bonne syntaxe ?

Mci
Comme le dit kikof la synthaxe est bonne, ce code à déjà fait ces preuves.

Quelle erreur as-tu ?
l'aide Access ne te donne pas plus d'info ?

Pour nous c'est flou car le code est bon de plus on ne voit pas ton code

Dolphy ;)