Envoie d'un mail sur lotus notes 8.5 à partir du VBA d'Excel

Jubei1

XLDnaute Nouveau
Bonjour à tous,

Je suis encore un novice sur VBA. J'ai récupéré un code sur internet en fouillant que j'ai ensuite adapté. Ce dernier sert à envoyer un mail depuis excel 2003 sur lotus 8.5 .
Or, je suis obligé d'avoir la session de lotus ouverte pour que ça marche sinon ça marche pas. Ainsi je souhaiterai que la macro ouvre avec mon mot de passe, expédie avec un fichier joint dont j'aurai spécifié l'adresse, réplique (réplique = actualise l'envoie sur lotus, sinon il y a un délai d'attente de 15 min entre chaque réplique de lotus) et puis referme lotus en bout de programme automatiquement.

Je vous serai très reconnaissant de me donner des pistes si c'est possible. Je pense qu'il faudrait que je déclare une variable dans laquelle je mettrai mon mot de passe et ensuite utiliser un truc du genre ça : Call Session.Initialize("le mot de passe") et pour le fichier joint ceci : FichierJoint = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name

Voici mon code :

Sub nouvelles()
'Set up the objects required for Automation into lotus notes
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)
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
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 = "ein_kun@hotmail.com"
MailDoc.CopyTo = "jubei1488@gmail.com"
MailDoc.Subject = "valo"
MailDoc.Body = "Voici l'actu" & Range("A1").Value
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(3).Cells(1, 1).Value
Attachment2 = Worksheets(3).Cells(1, 2).Value
Attachment3 = Worksheets(3).Cells(1, 3).Value
If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> "" Then
Set AttachME = MailDoc.CreateRichTextItem("Attachment1")
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment1, "Attachment1")
MailDoc.CreateRichTextItem (Attachment1)
Set AttachME = MailDoc.CreateRichTextItem("Attachment2")
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment2, "Attachment2")
MailDoc.CreateRichTextItem (Attachment2)
Set AttachME = MailDoc.CreateRichTextItem("Attachment3")
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment3, "Attachment3")
MailDoc.CreateRichTextItem (Attachment3)
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

End Sub
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun