envoi document actif en pièce jointe

Question

Bonjour,
J'ai créé un modèle (.dotm), lors d'un double-clic sur celui-ci, un Document1 est ouvert. Les utilisateurs répondent aux questions dans ce doc puis clic sur un bouton créé "envoyer le document".
Mon problème est qu'Outlook ouvre un nouveau message, le nom du destinataire est bien rempli, mais le document n'est pas ajouté en tant que pièce jointe. Bizarre car lorsque j'ouvre mon modèle et que j'active le "bouton" le document est bien ajouté en tant que pièce jointe, mais jamais lorsque qu'un nouveau document est activé (la macro s'arrête toujours sur "activedocument.fullname" (nom de fichier introuvable !)
Quelqu'un peut-il m'indiquer où mon problème se situe ?
d'avance merci et voici mon code :

Sub envoyer_click()
Documents("Document1").Activate

Dim outlookapp As Object
Dim item As Object
Dim subject As String
Dim msg As String
 
    Set outlookapp = CreateObject("outlook.application")
 
    msg = "Enter Message here"
    subject = "Enter subject here"
    Set item = outlookapp.CreateItem(0)
 
    With item
        .To = "maenners@bell.ch"
        .subject = subject
        .Body = msg
        .Display
        .Attachments.Add ActiveDocument.FullName
 
    End With
End Sub

cs_Fabrice90 · Answer

Salut,

Sans beaucoup de conviction, je pense que c'est parce que ton fichier n'est pas enregistré!...
Essai d'enregistrer ton fichier avant de l'envoyé.

Je dis peut-être une connerie!...


Cdlt,
Fabrice

soso61 · Answer

Salut,
Merci pour le truc en plus, mais je l'ai déjà testé !
soso61

Envoi document actif en pièce jointe

2 réponses

Votre réponse

Discussions similaires