Discussion :

[demichoux]

Bonjour,

J'aimerais pouvoir envoyer un mail par l'intermédier d'un bouton à partir de ma base access, dans le mail j'aimerais qu'apparaise des données de mon formulaire, je voudrez pouvoir ajouter aussi des PJ et visualiser mon mail avant de l'envoyer.

J'ai voulu reprendre le code de Argyronet mais sans réussite:

Lotus - Préparer/Envoyer un message via Lotus Notes avec option de sauvegarde.

J'ai quelque notion vba et encore

Merci d'avnce

[riri2938]

Bonjour,

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

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

J'utilise cette méthode emprunté par ailleurs à cet excellent site et cela fonctionne à merveille.

[demichoux]

merci riri2938 mais avec ce code je peut envoyer un mail que au même personnes et toujours les mêmes PJ et je ne visualise pas le mail avant de l'envoyer a moins que j'ai loupé quelque chose

[riri2938]

Bonjour, il suffit que tu crées une table avec l'ensemble des destinataires potentiels et ensuite que tu les sélectionnes à partir de ton formulaire. Ensuite pour visualiser les données de ton Mail, tu peux imaginer imprimer ces données en PDF puis récupérer ce ficier PDF et le visualiser. Si tu considéres que les données te conviennent, tu n'as plus qu'à valider ton envoi. Si cela t'interresses, j'ai plusieurs apppli qui tournent de cette manière. J'ai des données très aléatoire et après analyse, je dois les envoyer en fonction de critères variables à différents interlocuteurs pouvant varier d'un mail à l'autre. Je crée donc mes données à partir d'un formulaire, je les corrige éventuellement, puis je lance la procédure d'impression vers PDF, puis récupération pour affichage à l'écran. Si les données me conviennent, je valide l'envoi par mail en n'oubliant pas de sélectionner les destinataires, sinon, je retourne dans mon formulaire et modifie mes données.

[demichoux]

Bonjour riri2938,

J'ai créer une table que j'ai nommé annuaire avec tout mes intervants dedans.

Parcontre je suis très intérésé par t'ai application,doit-je te fournir une adresse mail??

Merci d'avance

[samcos]

Bonjour riri2938,

je n'arrive pas a mettre une piece jointe

j'ai essayé de mettre le nom de l'etat "E_SUIVI_PRET", le chemin d'acces à l'etat exporté (en rtf ou pdf) mais cela ne fonctionne pas.

Merci d'avance

Cdf

[chouchouninou]

Bonjour, je souhaite savoir si on peut récupérer une liste modifiable et l'envoyer par émail via lotus.

[Pittouti]

Bonjour,

je prends le train en marche comme on dit.

j'ai essayé ce code mais j'ai un message d'erreur

[Pittouti]

Problème résolu.