Imprimer les mails avec l'heure d'arrivée sur le serveur

olafgrosbaf Messages postés 2 Date d'inscription jeudi 5 juillet 2007 Statut Membre Dernière intervention 6 juillet 2007 - 6 juil. 2007 à 11:13
olafgrosbaf Messages postés 2 Date d'inscription jeudi 5 juillet 2007 Statut Membre Dernière intervention 6 juillet 2007 - 6 juil. 2007 à 11:43
Sous Outlook les mails sont automatiquement imprimés avec l’heur
d’émission du mail or pour certaines personnes (traitant a l international), j'ai besoin de pouvoir imprimer l’heur d’arrivée sur le
serveur histoire de pas passer trop de temps à réfléchir sur le décalage
horaire, ou comment ne pas passer 3 heures à expliquer pourquoi le mail qui arrive
du japon affiche 18h alors que j'imprime le papier a 9h30 ;)
 

Alors après quelques recherches j ai pondu ce bout de code


Sub Print_received()

    Dim FichierWord As
Object

    Dim myOlApp As New
Outlook.Application

    Dim myOlExp As
Outlook.Explorer

    Dim myOlSel As
Outlook.Selection

    Dim MsgTxt As
String

    Dim x As Integer

    Set FichierWord =
CreateObject("Word.Application")

   
FichierWord.Documents.Add

    
    Set myOlExp =
myOlApp.ActiveExplorer

    Set myOlSel =
myOlExp.Selection

    For x = 1 To
myOlSel.Count

   
    FichierWord.Selection.TypeText "De:" & myOlSel.Item(x).SenderName
& " [" & myOlSel.Item(x).SenderEmailAddress &
"]" & vbCrLf

   
    FichierWord.Selection.TypeText "Envoyé: " &
myOlSel.Item(x).ReceivedTime & vbCrLf

   
    FichierWord.Selection.TypeText "Reçu:   " & myOlSel.Item(x).SentOn &
vbCrLf

        FichierWord.Selection.TypeText
"Objet:  " &
myOlSel.Item(x).Subject & vbCrLf

   
    FichierWord.Selection.TypeText myOlSel.Item(x).Body

        FichierWord.ActiveDocument.PrintOut

   
    'FichierWord.ActiveDocument.Close

        Set FichierWord =
Nothing

    Next x

End Sub



Ne connaissant pas du tout le VBA, j’aimerais avoir quelque
piste pour récupérer le formatage du mail, les images insérées (j’entend par la
le logo de la société en entête ou la signature, pas des éventuelles pièces
jointes  ), et formater mon texte de façon a coller le plus possible à l’impression
Outlook. Ou si Quelqu’un vois une autre approche je ne suis pas contre .
Et en plus comme je suis pas du tout exigent  , j’aimerais ne plus
avoir la boite de dialogue qui dis que je fais des requêtes suspectes  pour récupérer les adresse mail et que je dois
autoriser 1 3 5 ou 10 min.

2 réponses

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
6 juil. 2007 à 11:37
Pourquoi ? tes mails non pas le paramètre "Reçu" chez toi ?

Moi sous Outlook 2003, dans la boite de reception, la colonne "Reçu", m'indique la date et l'heure de réception du mail sur mon serveur (Exchange pour le boulot, celui de mon FAI pour la maison).

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
0
olafgrosbaf Messages postés 2 Date d'inscription jeudi 5 juillet 2007 Statut Membre Dernière intervention 6 juillet 2007
6 juil. 2007 à 11:43
Le probleme n'est pas dans l'affichage mais dans l'impression d'ou le topic
0
Rejoignez-nous