Email VBA Lotus Notes

**ElenaNapoli** · 15/11/2017, 08h52

Hello ,

Alors la je vous expliques (j'espére que vous êtes assis !! )

En PJ vous trouvez mon dossier Excel ,

Dans la colonne E , j'ai des codes fournisseurs qui viennent alimenter la colone CE afin d'avoir leurs adresses email !

Ici tous vas bien !

Ma demande est la suivante :

J'aimerais envoyer un mail a partir d'excel , qui regroupe les information massifié par code fournisseur ( colonne E ) à l'adresse fournissseurs attribué ( colonne CE ) .

par exemple (photo en PJ ) ;

Pour le fournisseur A1 je veux recuperer tous les lignes lui correponsantes et l'envoyer à l'adresse mail A1

Information importante :
Messagerie Lotus Note

Merci

je suis a dispo pour toute les informations que vous avez besoins !!

Grazie !!

**Menhir** · 15/11/2017, 11h38

Etant donné que tu ne présentes pas la queue du début d'un embryon de code, je pense que ce que tu demandes n'est pas seulement de l'aide mais plutôt que quelqu'un fasse ton travail à ta place.
Pour ce genre de chose, le intervenants de ce forum sont généralement moins motivés.
Ce forum a un objectif pédagogique. Il n'a pas pour vocation de fournir une main d'oeuvre gratuite.

Mais si tu veux une bonne base pour l'utilisation de Lotus Notes en VBA, je te conseille de regarder ici : https://www.ibm.com/support/knowledg...REFERENCE.html

**BENNASR** · 15/11/2017, 11h55

Bonjour
Pour toutes fins utiles je vous envoie un code (trouvé sur le net) que j'utilise pour envoyer un mail via lotus notes 8.5

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
Sub envoiemail()
 Application.ScreenUpdating = False
'lefichier = ThisWorkbook.Path & "\Nom de mon fichier.xlsm"
lefichier = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim AttachME As Object 'The attachment richtextfile object
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
 
   Attachment = lefichier
 
   '************** Application.Dialogs(xlDialogSendMail).Show
    Set Session = CreateObject("Notes.NotesSession")
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.IsOpen = True Then
          'Already open for mail
     Else
         Maildb.OPENMAIL
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = "blablabla@yahoo.fr"
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    'Set up the embedded object and attachment and attach it
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
    'Send the document
    MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
    MailDoc.SEND 0, Recipient
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
    Application.ScreenUpdating = True
End Sub

Bonne continuation