Discussion :

[lafifine]

bonjour à tous
j'ai bien quelques petites connaissances en VBA sur excel mais là pour outlook je suis un peu perdu
je ne connais pas les evennement ni le nom des objets
donc je sollicite votre aide
j'envoie régulièrement au même destinataire exemple (mon_destinataire@gmail.com) un mail contenant une ou plusieurs pièces jointes (au format PDF)
j'aimerais que dans le corps du message apparaisse le nombre de pièces jointes
exemple: 4 fichiers joints
j'aimerais aussi que dans sujet soit inscrit (pointages du au ) avec la possibilité de remplir les blancs
sinon mieux mais surement plus complexe à mettre en oeuvre que les dates correspondantes soient inscrites automatiquement
les pièces jointes sont nommées par une date
exemple
vendredi 15 novembre 2013.pdf samedi 16 novembre 2013.pdf mardi 12 novembre 2013.pdf
ce qui donnait dans sujet: pointages du 12/11 ou 16/11/2013
cette macro devrait pouvoir se lancer sur le bouton "envoyer"
merci pour votre aide

[Oliv-]

SAlut,
voici un exemple pour récupérer le nom des pj dans le corps du Mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Public Sub Liste_PJ_20131118()
 'insère le nom des PJ dans le corps du message
 
    Dim Courrier As MailItem
    Dim NomsPJ As String
 
    Dim NbPJ As Integer
    Dim i As Integer
    Dim pj As Attachment
    Dim Separateur As Variant
    Dim NbTiret As Integer
 
    If Application.ActiveInspector Is Nothing Then Exit Sub
 
    Set Courrier = ActiveInspector.CurrentItem
    If Courrier Is Nothing Then Exit Sub
 
    Select Case Courrier.BodyFormat
    Case olFormatHTML:
        Separateur = "<BR>"
        NbTiret = 45
    Case olFormatPlain:
        Separateur = Chr(10)
        NbTiret = 35
    Case Else
        Separateur = " - "
        NbTiret = 50
    End Select
 
    NbPJ = Courrier.Attachments.Count
 
    For i = NbPJ To 1 Step -1
        Set pj = Courrier.Attachments(i)
             NomsPJ = NomsPJ & Separateur & "- " & pj.FileName
    Next
 
    Select Case Courrier.BodyFormat
    Case olFormatHTML:
 
        OuCommenceAdresse = InStr(1, Courrier.HTMLBody, "<BODY", vbTextCompare)
        If OuCommenceAdresse > 0 Then
            fin = InStr(OuCommenceAdresse + 5, Courrier.HTMLBody, ">") + 1
            BaliseBody = Mid(Courrier.HTMLBody, OuCommenceAdresse, fin - OuCommenceAdresse)
 
            Courrier.HTMLBody = Replace(Courrier.HTMLBody, BaliseBody, BaliseBody & "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & NomsPJ & "</font><BR>" _
                                                                     & "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & String(NbTiret, "-") & "</font><BR><BR>", 1, 1, vbTextCompare)
        Else: Courrier.HTMLBody = "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & NomsPJ & _
                                  "</font><BR>" & "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & String(NbTiret, "-") & "</font><BR><BR>" & Courrier.HTMLBody
 
        End If
    Case Else
        Courrier.Body = NomsPJ & Chr(10) & String(NbTiret, "-") & Chr(10) & Chr(10) & Courrier.Body
 
    End Select
 
 
    ' A activer pour enregistrer automatiquement les modifs
    'Courrier.Save
 
 
End Sub

Pour ta période il faut transformer tes noms de fichiers en dates dans un tableau par exemple et prendre le mini et le maxi pour alimenter ton sujet (Courrier.subject)

[Oliv-]

Si tu veux que ta macro s'execute à l'envoi, il faut utiliser l'évenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
end sub

Mais il faut ajouter des tests pour qu'elle ne s'exécute pas à chaque Email envoyé , comme le nom du destinataire ou le sujet...

[lafifine]

bonjour
merci pour ta proposition
même si ce n'est pas exactement ce que je cherchais à réaliser, je vais l'adopter ne serait-ce pour comprendre comment fonctionne les macros sur outlook
il me manque l'essentiel, le test pour que la macro ne fonctionne que sous une adresse bien définie ou alors je vais inclure une msgbox en début de code pour demander si je veux activer la macro ou pas

[Oliv-]

SAlut,
On ne peut pas tout avoir clef en main !
Il faut aussi chercher soi même
Le plus simple c'est de faire un test sur le sujet tu mets un sujet bidon dans ton mail, puis lorsque tu cliques sur envoyer ta macro le détécte puis le change.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if not courrier.subject like "*¤¤MAMACRO¤¤*" then exit sub
 
'...
 courrier.subject = "le sujet que j'ai choisi d'envoyer"
 
courrier .save