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 !
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 !
