[OL-2007] créer message de réponse avec pièces jointes + coller un message

[leridant]

Bonjour,

je voulais faire une macro dans outlook et je viens de découvrir que ce n'est malheureusement pas aussi simple que dans word.

Donc, je suis nul en VBA et pour l'instant je n'arrive à rien.

je m'occupe d'une base de donnée et de la saisie des données. dans ce cadre je reçois les infos par email, je les rentre et je dois renvoyer un message pour indiquer que c'est fait avec éventuellement le transfert des pièces jointes (en général des PDF)

je voudrai faire un bouton dans la barre d'outil rapide qui lance une macro qui:
- crée un message de réponse avec les pièces jointes du message qui est ouvert.
- ajoute en cc un contact (toujours le même)
- ajoute en cc un 2e contact (toujours le même) s'il y a des pièces jointes
- ajoute une phrases type ("Fait, pour vérification")
- ajoute une 2e phrases type ("pour classement"), s'il y a des pièces jointes
- colle ensuite le contenu du presse papier (tableau que j'ai copié dans access)
le message ne doit pas être envoyé car je dois parfois rajouter une infos ou deux.

Voila. est ce possible ? si quelqu'un peut m'aider, ça serait génial.

Thierry

[carden752]

Bonjour,

Il s'agit d'un objet de type Mailitem
Utiliser activeInspector pour le message
Utiliser attachment pour les pièces jointes.
utiliser body ou .bodyHtml pour le corps du message
utiliser subject pour le sujet

Je n'ai pas trop le temps là, je ferai ce soir ou demain éventuellement une macro si tu n'as pas réussi.
Une piste pour travailler avec un message courant et les pièces jointes

[leridant]

bonjour,

malgré les pistes données par carden je n'avance pas. ce que j'avais avait fait seulement planter outlook. si quelqu'un peut m'aider.

Thierry

[carden752]

Bonjour Thierry,

Qu'avez-vous commencer à coder?
Voici un début de code pour vous aider

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub copiepj()
Dim newmail As MailItem
Dim curitem As MailItem
Dim chemin As String
chemin = "c:\temp\"
Set curitem = Application.ActiveInspector.CurrentItem
Set newmail = curitem.Reply
newmail.To = ""
newmail.Body = "Fait, pour vérification" & vbCrLf & curitem.Body
newmail.CC = "mondest1"
For i = 1 To curitem.Attachments.Count
curitem.Attachments(i).SaveAsFile chemin & curitem.Attachments(i).DisplayName
newmail.Attachments.Add chemin & curitem.Attachments(i).DisplayName
Next i
'Pièces jointes ajout du 2eme dest et phrase clé
If curitem.Attachments.Count > 0 Then
newmail.CC = newmail.CC & ";" & "mondest2"
newmail.Body = vbCrLf & "Pour classement" & vbCrLf & newmail.Body
End If
newmail.Save
End Sub

Le message est sauvegardé dans les brouillons
Pour le presse papier c'est plus délicat car l'objet presse papier n'existe pas en VBA. Il faut utiliser l'API Win32.
Presse papier et API Win32

[leridant]

Merci beaucoup, je vais essayer.