VBA pour envoi de message outlook

je suis un novice en VBA.

J’essaie de faire un programme vba pour l’envoi d’un mail.

J’ai réussi une partie du programme mais pas l’ensemble

Je n’arrive pas à rajouter à mon programme

• L’insertion d’un fichier par le menu proposé par outlook et redémarrage du programme après sélection sur un répertoire donné du dernier fichier du mois

• L’insertion de ma signature dans le corps du message.

Voici le programme

Sub Impression_performance()

'' Impression_performance Macro

' Touche de raccourci du clavier: Ctrl+e

Dim ObjOutlook As Object

Dim ObjMessage As Object

'Ouverture d'Outlook et création d'un message vierge

Set ObjOutlook = CreateObject("Outlook.Application")

Set ObjMessage = ObjOutlook.createitem(0)

ObjMessage.Display

ObjMessage.Subject = "Performance du mois "

ObjMessage.body = "Bonjour" & Chr(13) & "Je vous prie de trouver ci joints les résultats de nos performances " & Chr(13)

'ObjMessage.to = "BRC19"

ObjMessage.CC = "BRC19"

'Envoyer le message.

'ObjMessage.Send

Set Message = Nothing

Set OutlookApp = Nothing

End Sub

Edit modo : merci de mettre le code entre balises grâce au bouton </>

Merci à vous pour votre aide.

BRC19

Bonjour BrC19

Très bien ton 1er jet Voici le code pour ce que tu demandes

'' Impression_performance Macro
' Touche de raccourci du clavier: Ctrl+e
Sub Impression_performance()
  Dim ObjOutlook As Object
  Dim ObjMessage As Object
  Dim HtmlBody As String
  Dim sLienFic As String
  'Ouverture d'Outlook et création d'un message vierge
  Set ObjOutlook = CreateObject("Outlook.Application")
  Set ObjMessage = ObjOutlook.createitem(0)
  ' Avec l'objet conteneur
  With ObjMessage
    .Display
    .Subject = "Performance du mois "
    ' Mémoriser la signature qui normalement est automatique sur nouveau message
    HtmlBody = .Body
    ' Texte du message
    .Body = "Bonjour<br>" _
      & "Je vous prie de trouver ci joints les résultats de nos performances<br>" _
      & HtmlBody
    ' Destinataires
    .to = "BRC19"
    .CC = "BRC19"
    ' Chemin d'accès au fichier
    sLienFic = "C:\MonDossier\NomFichier.Extension"
    ' Attacher le fichier
    .Attachments.Add sLienFic
    'Envoyer le message.
    '.Send
  End With
  ' effacer variables objet
  Set ObjMessage = Nothing
  Set ObjOutlook = Nothing
End Sub

@+