Discussion :

[ade94]

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

[ade94]

J'ai trouvé ce code la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MailDoc.Send 0, Recipient

où Recipient est de type string correspondant au destinataire.

Connaissez vous la bonne syntaxe ?

Mci

[Lou Pitchoun]

la syntaxe est bonne : le problème est ailleurs.

[Dolphy35]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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