Discussion :

[xcbilx]

Bonjour

Je souhaite envoyer le contenu d'un document word par le biais d'outlook avec les critères suivants:

• le contenu du document Word doit être dans le corps du message Outlook
• Cocher les options Outlook : confirmation de lecture et accusé reception
• modifier l'option de remise càd : Enregistrer le document une fois émis
  dans un dossier particulier
• Insérer la signature enregistrer dans Outlook

A force de rechercher sur les forums et FAQ j'ai trouvé deux solutions, mais qui ne répondent pas complètement à ma demande. Dans les codes ci-dessous je n'ai pas implémenté l'insertion de la signature dans le mail .


1 - Utiliser la fonction CreateItem(olMailItem)

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 EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
Dim myNameSpace As Outlook.NameSpace
Dim stTemp
Dim myRange As Range
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
 
 
' Selection du document et copy
Set myRange = ActiveDocument.Range
myRange.WholeStory
myRange.Select
stTemp = Selection.Text
 
Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
MyIt.To = "dest"
MyIt.Subject = "test" & Date
MyIt.BodyFormat = olFormatHTML
MyIt.Body = stTemp  'Document word
 
Set objNS = oApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders("DossiersP").Folders("TEST")
Set MyIt.SaveSentMessageFolder = objFolder
 
'affichage
MyIt.Display
End sub

Remarques:

• Le texte est copié mais pas la mise en forme (gras, tableau, image...) Selection.text
• Je ne sais pas codé l'accusé de réception et la confirmation de lecture
• Ok pour le dossier destination

2 - Utiliser ActiveWindow.EnvelopeVisible = True

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Envoimail2()
    ActiveWindow.EnvelopeVisible = True
    With ActiveDocument
     .MailEnvelope.Item.To = "dest"
     .MailEnvelope.Item.Subject = "test" & Date
     .MailEnvelope.Item.BodyFormat = olFormatHTML
End With
 
End Sub

Remarques:

• Le texte est copié avec conservation de la mise en forme
• Je ne sais pas codé l'accusé de réception et la confirmation de lecture
• KO pour codé le dossier destination

En conclusion :

• les deux méthodes sont différentes mais il est peut-être possible de les matcher ??
• Je suis preneur du code pour insérer la signature enregistrée dans Outlook

Merci pour votre aide

[xcbilx]

Je viens de trouver une solution pour l'exemple 1


En rouge les modifs

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
Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
'Dim myAtt As Attachment
Dim myNameSpace As Outlook.NameSpace
Dim stTemp
Dim myRange As Range
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


'Copie du document Actif
Set myRange = ActiveDocument.Range
Set mycontent = ActiveDocument.Content
mycontent.Select
mycontent.Copy   


Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
MyIt.To = "dest"
MyIt.Subject = "test"
MyIt.BodyFormat = olFormatHTML
'MyIt.Body =     

'ajout accusé réception et confirmation de lecture
MyIt.OriginatorDeliveryReportRequested = True
MyIt.ReadReceiptRequested = True


'Affectation dossier envoi mail
Set objNS = oApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders("Dossiers").Folders("TEST")
Set MyIt.SaveSentMessageFolder = objFolder


'affichage
MyIt.Display

'copy de la selection en format image
Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
 
End Sub

Explication pour la signature : Le fait de ne pas mettre MyIt.body force OUTLOOK à positionner la signature enregistrée dans les paramètres


Merci de me donner votre avis svp