XL 2010 envoyer un formulaire par mail / code VBA

Hauchard

XLDnaute Nouveau
Bonjour,

Je travaille actuellement sur un fichier pour mon travail.
Le but du fichier est de compiler des fiches Fraude.
J'ai créer un bouton afin que la fiche enregistrée via le formulaire soit envoyée par mail.
J'ai trouvé un code VBA mais la pièce jointe générée dans le mail ne contient pas le formulaire. je me retrouve avec une capture de la feuille Excel.

Voici le code que j'utilise :
Private Sub btnenvoimail_Click()

' Nécessite la référence : Microsoft Outlook 1x Object Library

Set olApp = CreateObject("Outlook.application")
Set olMail = olApp.CreateItem(olMailItem)
' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille.pdf "
CurFile = ThisWorkbook.Path & "\" & "Fiche Fraude.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, to:=1, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
'.To = "xxx@gmail.com"
'.CC = "name2@domain2.com"
.Subject = "Fiche Fraude"
.Body = "Bonjour," & vbCrLf & vbCrLf & "Tu trouveras ci-joint une fiche fraude à enregistrer." & vbCrLf & vbCrLf & "Bien cordialement," & vbCrLf
.Attachments.Add CurFile
'.Attachments.Add "c:\My Documents\book.doc"
.Display '.Send
End With

' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing


End Sub

Mon souhait est que le formulaire créé soit envoyé en pièce jointe.

J'avoue que je ne suis pas expert.

D'avance merci pour votre aide.

François
 

Pièces jointes

  • Suivi Fraude - Fiche Fraude.xlsm
    164.5 KB · Affichages: 16

Discussions similaires

Réponses
2
Affichages
98