Problème Macro Renvoi pièce jointe via lotus notes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CALIDENIS

XLDnaute Nouveau
Bonjour,
J'ai adapté une macro trouvée sur le forum pour envoyer mon classeur actif en pièce jointe via lotus (il s'agit d'un formulaire envoyé par un salarié à son manager). Jusqu'ici pas de souci, tout marche impec.
Maintenant, je voudrais qu'après avoir ouvert ce même classeur, on puisse à nouveau le renvoyer en pièce jointe via lotus (en bref, le manager renvoie le formulaire apres l'avoir validé à son salarié). A priori pas de souci, j'ai copié le code de ma première macro et je l'ai collé dans une deuxième macro en changeant le destinataire (salarié au lieu du manager) :

Sub RetourManager()
Dim Maildb As Object 'La base des emails
Dim UserName As String 'Le nom d'utilisateur
Dim MailDbName As String 'Le nom de la base des mails
Dim MailDoc As Object 'L'email
Dim AttachME As Object 'La pièce jointe en RTF
Dim Session As Object 'La session Notes
Dim EmbedObj As Object 'L'objet incorporé
'Crée une session notes
Set Session = CreateObject("Notes.NotesSession")
'Récupère le nom d'utilisateur et crée le nom de la base des emails
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Ouvre la base des emails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL
'Paramètre l'email à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.Sendto = Range("EmailSalarié").Value
MailDoc.Subject = "blablabla"
MailDoc.Body = "Bonjour," & a _
& vbCrLf & "" & a _
& vbCrLf & "Votre demande est acceptée." & a _
& vbCrLf & "" & a _
& vbCrLf & "Cordialement."
MailDoc.SAVEMESSAGEONSEND = True
'Attache la pièce jointe
Attachment1 = "R:\Nomdufichier.xlms"
If Attachment1 <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment1, "Attachment1")
MailDoc.CREATERICHTEXTITEM ("Attachment1")
End If
'Envoie l'email
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Range("EmailSalarié").Value
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing

End Sub

Mais là, bizarrement, je me retrouve toujours avec la même erreur 7368 "Rich Text Item CheminFichier Already exists".
Je précise aussi que je n'ai aucun souci si je renvoie le mail sans la pièce jointe. J'ai modfié le nom "Attachment1" au lieu de "Attachment" pour éviter toute confusion avec la première macro, j'ai même créé une copie temporaie du classeur au lieu d'envoyer le classeur actif directement, mais rien n'y fait, j'ai toujours cette erreur. Et là je desespère !

Merci d'avance à tous ceux qui pourront m'aider... et sauver ma chevelure vu que là je m'arrache les cheveux pour trouver une solution (peut-être toute simple) ou au moins contourner le problème !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
2 K
Retour