Discussion :

[samcos]

Bonjour

j'essaie d'envoyer en vain un mail avec piece jointe avec lotus a partir d'access


Pour cela je me suis inspiré de la discussion "Envoyer mail avec Lotus Notes 6.5 à partir d'Access " et utilize le code de riri2938

http://www.developpez.net/forums/d10...rtir-d-access/

"Dans ta base access, tu crées un module et tu ajoute le code ci-dessous

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Compare Database
 
Public Sub SendNotesMail(ByVal Subject As Variant, ByVal Attachment As String, _
                         ByVal recipient As Variant, ByVal ccrecipient As Variant, _
                         ByVal bccrecipient As Variant, ByVal BodyText As String, _
                         ByVal SaveIt As Boolean, ByVal Password As String)
 
    Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
 
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
 
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.ISOPEN Then Maildb.OPENMAIL
 
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.from = Session.CommonUserName
    MailDoc.sendto = recipient
    MailDoc.CopyTo = ccrecipient
    MailDoc.BlindCopyTo = bccrecipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
 
    'Prend en compte les pièces jointes
Dim varObjPJ As Variant
varObjPJ = Split(Attachment, "|")
 
 
'   If Not IsMissing(Attachment) Then
If Attachment <> "" Then
      For i = UBound(varObjPJ) - 1 To 0 Step -1
           Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment" & i)
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", varObjPJ(i), "Attachment")
        MailDoc.CREATERICHTEXTITEM ("myfiles" & i)
      Next i
End If
'   End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, recipient
 
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

Il te suffit ensuite d'ajouter le code suivant dans la procédure OnClick du bouton

Code :

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

SendNotesMail "Titre de ton mail", "pièces jointes", "adresse destinataire", "adresse destinataire en copie", "adresse destinataire en copie caché", "Corps de ton mail", True, ""

Cela fonctionne j'arrive bien à envoyer un mail a la personne voulue par contre je n'arrive pas a y joindre une requette ou etat.

Merci d'avance de votre aide.

[samcos]

je viens d'essayer cela :

Code :

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

1
2
3
4
5
6
7
Private Sub Commande43_Click()
 
 DoCmd.SendObject acSendQuery, "R_T_APPAREIL_PA_SUIVI_PRET", "PDF", "xx@aa.fr", "", "", "Suivi des prets en cours", " Bonjour Veuillez trouver ci joint la liste des prets encours au " & [Now]
 
 
 
End Sub

Cela m'ouvre bien un email avec la piece jointe mais ne l'envoi pas en automatique