Bonjour à tous,
Tout d'abord, je vous remercie pour tous ses échanges d'informations et de savoir faire formidables.
Je voudrai savoir s'il vous plait comment attacher (en VBA) un fichier excel au mail envoyé automatiquement via lotus v7.
En effet, j'ai ecrit un programme me permettant d'envoyer un mail en appuyant directement sur un bouton envoyer mail sur une feuille excel que je suis entrain de mettre en place petit à petit dans le cadre d'un nouveau process 2009 de mon entreprise. à ce jour, j'arrive bien à envoyer le mail aux destinataires concernés, mais le fichier excel que je veux attacher au mail n'apparait pas chez le destinataire une fois avoir reçu le mail !!😕
Voici mon code :
Public Sub CommandButton_Click() 'copie sauvegarde classeur
'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 = "Ici ajouter le mail du destinataire"
'MailDoc.CopyTo = ""
MailDoc.Subject = "Nouvelle demande de travaux"
'MailDoc.Body = "Bonjour,"
MailDoc.SaveMessageOnSend = SaveIt
Set objNotesField = MailDoc.CreateRichTextItem("Body")
With objNotesField
.AppendText "Bonjour,"
.AddNewLine 2
.AppendText "Veuillez trouver ci-joint une nouvelle Demande de travaux"
.AddNewLine 2
.AppendText "Bonne réception"
.AddNewLine 2
.AppendText "********************************************"
.AddNewLine 2
.AppendText "Cet e-mail a été généré par un processus automatique."
.AddNewLine 2
.AppendText "Cordialement"
.AddNewLine 1
.AppendText "Brice"
.AddNewLine 1
.AppendText "------------------"
.AddNewLine 1
.AppendText "---------------------------"
.AddNewLine 1
.AppendText "--------------------------"
.AddNewLine 1
.AppendText "E-mail : -------------------"
.AddNewLine 1
.AppendText "Tél: ---------- Fax: -------------------"
End With
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(2).Cells(4, 7).Value ' c'est ici que j'ai le problème😕
If Attachment1 <> "" Then
Set AttachME = MailDoc.CreateRichTextItem("Attachment1")
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment1, "Attachment1")
MailDoc.CreateRichTextItem (Attachment1)
End If
'Envoi du document
If SaveIt = True Then
MailDoc.SaveMessageOnSend = SaveIt 'si à True, Lotus sauvegarde le mail envoyé
End If
Call MailDoc.Send(False) 'j'obtiens une erreur lorsque je mets True au lieu de false, si quelqu'un sait pourquoi
prvSendNotesMail = True
GoTo ExitHandle
ErrHandle:
MsgBox Err.Description
prvSendNotesMail = False
ExitHandle:
'Vidage mémoire
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set oSession = Nothing
Set dbDirectory = Nothing
Set EmbedObj = Nothing
'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 Session = Nothing
'Set EmbedObj = Nothing
End Sub
Merci par avance de votre réponse.
Cordialement
RIMKA16
