Microsoft 365 macro excel

[naf naf]

bonjour,
je souhaite insérer une pièce jointe pdf dans un mail déjà pré enregistrer au format oft .
J'ai écrit un bout de code ou il m'ouvre le fichier oft mais il me crée un autre mail pour m'insérer la pièce jointe .
Pouvez vous m'aider svp .

voici mon bout de code :

Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Outlook.Application.CreateItem(olMailItem)

Set myAttachments = myItem.Attachments
' lien hypertext pour ouverture de .oft
Range("M40").Select

' insertion pièce jointe
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
myAttachments.Add "c:\semainier- Version du 15-01-2021.pdf", _
olByValue, 1, "Semainier"
myItem.Display

 

[naf naf]

Re

Que donne un test sans la ligne Attachments.Add ?
Un nouveau mail est bien créé à partir du modèle Outlook?

oui si je met .Attachement en commentaire il me crée bien le bon mail , il manque donc juste la piece jointe sinon tout bon

 

[Staple1600]

Re

Donc essaie cette variante
(et pour mininiser le risque d'erreur et puisqu'il s'agit de tes), renomme les fichiers exactement comme dans mon code)

Sub test_mail_avec_modele_II()
Dim Outlook_Mod$
Outlook_Mod = ThisWorkbook.Path & "\modele.oft" ' à adapter
    With CreateObject("Outlook.Application").CreateItemFromTemplate(Outlook_Mod)
        .To = "adressemail@domain.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add ThisWorkbook.Path & "\fichier.txt"
        .Display
        '.Send
    End With
End Sub

 

[Staple1600]

Re

Une dernière suggestion

Sub test_mail_avec_modele_III()
Dim Outlook_Mod$
Outlook_Mod = ThisWorkbook.Path & "\modele.oft" ' à adapter
P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter
    With CreateObject("Outlook.Application").CreateItemFromTemplate(Outlook_Mod)
        .To = "adressemail@domain.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add (ThisWorkbook.Path & "\fichier.txt")
        .Display
        '.Send
    End With
End Sub

 

[naf naf]

Re

Une dernière suggestion

Sub test_mail_avec_modele_III()
Dim Outlook_Mod$
Outlook_Mod = ThisWorkbook.Path & "\modele.oft" ' à adapter
P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter
    With CreateObject("Outlook.Application").CreateItemFromTemplate(Outlook_Mod)
        .To = "adressemail@domain.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add (ThisWorkbook.Path & "\fichier.txt")
        .Display
        '.Send
    End With
End Sub

j'ai essayé les 2 propositions et dans les 2cas c'est pareil ...
Je comprends pas pourquoi il bloque sur cette commande

 

[Staple1600]

Re

A mon niveau, je ne peux en dire plus.
Je n'ai pas Outlook ici.
Je pourrais tester lundi au boulot et je te redirai.

Une dernière vérification au cas où
Peux-poster une copie d'écran de ton explorateur Windows en étant dans le répertoire où sont les 3 fichiers.

Histoire d'être sur.

 

[naf naf]

j'ai trouvé , c'est la variable outlook_Mod qui n'est pas réinitialiser est donc qui garde une vieille et fausse valeur.
En changeant outlook_Mod par Outlook_Mod1 cela fonctionne
Une idée pour réinitialiser les variables au depart du programme ?

 

[Staple1600]

Re

Donc cela fonctionnait en fait...
(C'est amusant...de perdre son temps pour des fautes d'inattention)

Et quid des "chaleureux remerciements" en cas de résolution de la question initiale?


PS: Précisions
Oui , j'ai toujours en main mon crayon "humour/titillement/ironie et cie" pour rédiger ce message.
Mais tout cela sur un ton amical.

 

[naf naf]

Re

Donc cela fonctionnait en fait...
(C'est amusant...de perdre son temps pour des fautes d'inattention)

Et quid des "chaleureux remerciements" en cas de résolution de la question initiale?


PS: Précisions
Oui , j'ai toujours en main mon crayon "humour/titillement/ironie et cie" pour rédiger ce message.
Mais tout cela sur un ton amical.

Et oui un trés grand merci à toi pour ta patience, j'ai rajouté End à la fin du programme pour effacer les variables.

 

[Staple1600]

Re

La question est résolue.
Tant mieux pour toi.
Tant pis pour moi, vu que je voulais faire des test lundi au boulot.
A la place, je vais être obligé de bosser.

 

[naf naf]

Re

La question est résolue.
Tant mieux pour toi.
Tant pis pour moi, vu que je voulais faire des test lundi au boulot.
A la place, je vais être obligé de bosser.

lol Petite derniere question sans obligation de réponse, peut on enlever ThisWorkbook.Path pour y mettre un autre répertoire ??

 

[Staple1600]

Re

Oui, on peut mettre le répertoire de son choix
Mais normalement, les modèles sont enregistrés ici par défaut
"AppData\Roaming\Microsoft\Templates"
Ce serait donc plus simple d'utiliser ce type de chemin pour stocker tes modèles.

 

[naf naf]

Re

Oui, on peut mettre le répertoire de son choix
Mais normalement, les modèles sont enregistrés ici par défaut
"AppData\Roaming\Microsoft\Templates"
Ce serait donc plus simple d'utiliser ce type de chemin pour stocker tes modèles.

merci beaucoup beaucoup beaucoup

 

[Staple1600]

Re

Et donc si j'étais moi, voici ce que je ferais
NB: La 1ère macro est là juste pour identifier le chemin de tes modèles.

Sub test()
Off_Modeles = Application.TemplatesPath
MsgBox Off_Modeles
End Sub
Const PieceJointe As String = "monfichier.txt"
Sub test_V()
OutlookApp As Object, OutlookMail As Object, Outlook_Mod$
Outlook_Mod = Application.TemplatesPath & "modele.oft"
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItemFromTemplate(Outlook_Mod)
With OutlookMail
    .To = "staple1600@outtaspace.com"
    .Subject = "test"
    .Display
    .Attachments.Add (ThisWorkbook.Path & "\" & PieceJointe)
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub