Bonjour,
Je cherche à créer un mail à partir d'une macro Excel sur Lotus.
Ce mail doit être envoyé en cliquant sur un bouton.
Il doit comporter:
- Un sujet
- Une phrase dans le corps du mail de type: "Bonjour, voici les fichiers du jour"
- un fichier joint
- une image copiée collée de cellules excel d'un fichier, directement dans le corps du mail.
voici ce que j'ai fait:
Dim today, dateJ, dateJ1 As Date
Dim Notes As Object, db As Object, WorkSpace As Object
Dim my_Sheet, my_sheet2 As Worksheet
Set my_Sheet = ActiveWorkbook.Sheets("Macros" )
Set my_sheet2 = ActiveWorkbook.Sheets("verif" )
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj As Object
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
Else
Maildb.OPENMAIL
End If
today = Sheets("Macros" ).Range("D1" ).Value
dateJ = Sheets("Macros" ).Range("D6" ).Value
dateJ1 = Sheets("Macros" ).Range("D9" ).Value
dateJJ = Day(dateJ) & Month(dateJ) & Year(dateJ)
If Sheets("Macros" ).CheckBox1.Value = True And Sheets("Macros" ).CheckBox4.Value = False Then cc = "Paris"
If Sheets("Macros" ).CheckBox1.Value = True And Sheets("Macros" ).CheckBox4.Value = True Then cc = "Allianz"
If Sheets("Macros" ).CheckBox2.Value = True Then cc = "Asia"
If Sheets("Macros" ).CheckBox3.Value = True Then cc = "NY"
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.Sendto = "pp@pp.com"
MailDoc.Subject = "sujet"
MailDoc.SaveMessageOnSend = SaveIt
Attachment1 = "F:\chemin"
Set AttachME = MailDoc.CreateRichTextItem("Attachment1" )
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment1, "Attachment1" )
MailDoc.CreateRichTextItem (Attachment1)
Set WorkSpace = CreateObject("Notes.NotesUIWorkspace" )
Call WorkSpace.ComposeDocument(, , "Memo" )
Set MailDoc = WorkSpace.CurrentDocument
Worksheets("verif" ).Range("P17:Q34" ).CopyPicture
Call MailDoc.GotoField("Body" )
body = "Blah blah blah"
Call MailDoc.Paste
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
mais ça ne marche pas, car je pense que ce code crée deux mails différents.
Comment pourrais-je avoir le fichier joint et l'image dans le même mail?
Merci beaucoup pour votre aide,
Cdt,
Grumilbonsoir