Discussion :

[Jbruiant]

Bonjour,

Word (2003) est utilisé comme rédacteur d'email (temporaire). l'envoi s'effectue dans word par le menu Fichier/envoyer vers /destinataire.
Microsoft Outlook est configuré en mode html.

Par code VBA, à l'ouverture de Word, le message se contitue automatique incluant une image.
Le bandeau "outlook" ne semble pas accessible via le VBA.

L'objectif est d'automatiser l'attachement (insertiond d'un fichier en pièce jointe) à l'ouverture de word.

l'idée serait d'obtenir un code :ActiveDocument.Attachments.Add = "E:\BOXI3\Reporting\_TPE.xls"


Dans mes recherches, en modifiant un code, j'arrive à transférer le corps de word dans un message Html de Ms Outlook avec ajout d'une pièce jointe.

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
Sub CopyMailEnvoi()
    Dim myolApp As Outlook.Application
    Dim myinspector As Outlook.Inspector
    Dim myItem As Outlook.MailItem
    Dim myattachments As Outlook.Attachments
    Set myolApp = CreateObject("Outlook.Application")
    Set myinspector = myolApp.ActiveInspector
    Set myItem = myinspector.CurrentItem.Forward
    Set myattachments = myItem.Attachments
 
        myItem.Display
        myItem.Recipients.Add "Marc.Nul@omail.com"
 
        myattachments.Add "E:\BOXI3\Reporting\_TPE.xls", _
        olByValue, 1, "Test"
 
 
 
 
End Sub

Cependant, le but est de faire "l'attachment" et l'envoi à partir de Word.

Avez-vous une idée sur le comment ?

Cdlt, Jacky

P.S: j'ai effectué des recherches retournant des exemples identiques au code ci-dessus

[Le martien]

Bonjour,
Je suis nouveau sur le forum et je ne suis pas sûr d'avoir tout compris la question mais je vais tenter une réponse.
Si j'ai bien compris tu veux générer un courriel en utilisant ton Word. J'ai déclaré myolApp et myolApp en object et se n'est qu'après que je leur désigne le type d'objet par des set.
Pour le corps du courriel j'utilise myItem.body
Pour les pièces jointes je t'ai ajouté une fonction que j'ai déjà codé il y a un certain temp et que j'utilise fréquemment qui paramètre la boîte de dialogue Open de Word. Si tu veux joindre différents fichier tu peux le faire au moyen d'une boucle

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
Option Explicit
Sub CopyMailEnvoi()
    Dim myolApp  As Object
    Dim myItem  As Object
    Dim myattachments As Object
    Set myolApp = CreateObject("Outlook.Application")
    Set myItem = myolApp.CreateItem(0)
    ActiveDocument.Content.Select
    myItem.To = "tonadresse@hotmail.com"
    myItem.body = Selection
    myItem.Attachments.Add Inserer 'Inserer est une fonction ci-bas
    myItem.Display
End Sub
'***********
Public Function Inserer() As String
Dim Insertion As FileDialog
Dim n As Integer
Dim intFiltre As Integer
intFiltre = 0
        Set Insertion = Application.FileDialog(msoFileDialogOpen)
        Insertion.ButtonName = "Insérer"
        Insertion.Title = "Insérer un fichier"
        For n = 1 To Insertion.Filters.Count
            If Insertion.Filters(n).Extensions = "*.*" Then
                intFiltre = n
            End If
        Next n
        If intFiltre = 0 Then
            Insertion.Filters.Add "Tous les types de fichiers", "*.*", 1
            intFiltre = 1
        End If
        Insertion.FilterIndex = intFiltre
        Insertion.Show
        On Error GoTo Vide
            Inserer = Insertion.SelectedItems(1)
        Exit Function
Vide:
        Inserer = ""
End Function

[Heureux-oli]

Salut,

Tu as deux choix, le premier est de faire du "Early Binding", on utilise dans ce cas la bibliothèque Outlook dans Word en la déclarant dans les propriétés du projets.

Outils => Références

Le second choix est de faire du "Late Binding", dans ce cas, on n'utilise pas la bibliothèque, mais on la déclare dans le code lors de son utilisation.

http://mhubiche.developpez.com/vba/f...endre/binding/

Si tu utilises le "Early Binding", c'est plus facile, l'éditeur t'aide à l'écriture avec l'IntelliSense.

Voilà un exemple de code non testé et écrit à la volée

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
Sub TestAvecOutlook()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oAtt As Outlook.Attachments
 
 
 
Set oApp = Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)
Set oAtt = oMail.Attachments
 
With oMail
    .To = "Adresse@serveur.com"
    .BodyFormat = olFormatHTML
    .Body = "Le contenu"
    .Subject = "Le sujet ou  objet du message"
End With
 
oAtt.Add "Le chemin du fichier attaché"
oAtt.Add "Eventuellement un second fichier"
 
oMail.Send
 
 
Set oMail = Nothing
Set oAtt = Nothing
oApp.Quit
Set oApp = Nothing
 
 
End Sub