VBA & Lotus Note

Public Mot_De_passe As String


Sub SendNotesMail()
'paramètres des objets nécessaires pour Lotus Notes
Dim Maildb As Object 'La base mail
Dim UserName As String 'le nom de l'utilisateur courant
Dim MailDbName As String 'le nom de la base mail de l'utilisateur corant
Dim MailDoc As Object 'le document mail
Dim AttachME As Object 'les objets attachés
Dim Session As Object ' l'objet session
Dim EmbedObj As Object 'l'objet qui est transmis à lotus

Dim Nbuser As Integer 'le nombre d'utilisateur
Dim Prenom As String ' le prénom
Dim Nom As String    ' le nom
Dim AdresseMail As String 'prenom.nom@gm.com


Nbuser = Sheets("feuil1").Range("A1").CurrentRegion.Rows.Count - 1


' Démarre une session LN
Set Session = CreateObject("Notes.NotesSession")
'on connait l'objet donc l'utilisateur username et la base

UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'on ouvre la base dans LN
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'déjà ouvert
Else
Maildb.OPENMAIL
End If
'****************

'
'Paramètres du nouveau document mail

For i = 1 To Nbuser
    
    Prenom = LCase(Sheets("Feuil1").Range("A1").Offset(i, 0).Value)
    Nom = LCase(Sheets("Feuil1").Range("A1").Offset(i, 1).Value)
    Mot_De_passe = Sheets("Feuil1").Range("A1").Offset(i, 2).Value
    AdresseMail = Prenom & "." & Nom & "@gm.com"
    
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.Sendto = AdresseMail ' la tu mets l'adresse mail de ton correspondant" '(laisse les "")
    'MailDoc.copyto = ""

    MailDoc.copyto = "prenom2.nom2@provider.com" 'l'adresse de la personne en copie" '(laisse les "")
    MailDoc.Subject = "Essai envoi pour mot de passe" 'la tu mets le sujet" '(avec des "")

    ' Construction du corps du message
    Set objNotesField = MailDoc.CREATERICHTEXTITEM("Body")
    With objNotesField
        .AppendText "Bonjour,"
        .AddNewLine 2
        .AppendText "Veuillez trouver ci-joint  ... >>>" 'tu peux ajouter des lignes
        .AddNewLine 1
        .AppendText " un commentaire ...."

        .AddNewLine 2
        .AppendText "... un autre"

        .AppendText "Salutations"
        .AddNewLine 3
        .AppendText " Important"
        .AppendText " si vous recevez ce mail par erreur .... merci de le détruire... "


    End With

MailDoc.SaveMessageOnSend = SaveIt


'************

'envoi du document
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
Next
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing

End Sub