Pages

Affichage des articles dont le libellé est d'envoi. Afficher tous les articles
Affichage des articles dont le libellé est d'envoi. Afficher tous les articles

[OL-2007] Comment faire pour classer des emails par date d'envoi ou réception dans un dossier windows sujet

vendredi 28 mars 2014




Bonjour,
J'ai essayé et échoué...qui aurait une idée ?

Une collègue fait des copies de ses emails (via copier-coller) dans des dossiers windows. Tout va bien... sauf que le classement ne semble se faire uniquement sur l'objet et ma collègue aimerait trier sur la date d'envoi ou réception (selon le cas) du message ....
J'ai activé d'autres colonnes mais la date d'envoi/réception ne s'affiche pas et la date de création est celle de la date de la copie.

Est-possible ? Le cas échéant, que faut-il faire ?

Un très grand merci d'avance pour vos pistes.
Bien cordialement,
Roger




Problème d'envoi de mail avec Excel via Outlook sujet

vendredi 31 janvier 2014




Bonjour,

J'ai le code, ci-dessous, d'envoi d'une feuille de calcul Excel par mail via Outlook.


Code:


    ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
   
    ' Show the envelope on the ActiveWorkbook
    ActiveWorkbook.EnvelopeVisible = True
   
    adresse = Sheets("Configuration").range("C12")
    cc = Sheets("Configuration").range("C13")
    message = Sheets("Configuration").range("C11")
    sujet = Sheets("Configuration").range("C10") & " " &  Day(LocalTimeToFRTimeSerial(Now())) & "/" & Month(LocalTimeToFRTimeSerial(Now())) & "/" & Year(LocalTimeToFRTimeSerial(Now())) & " " & Hour(LocalTimeToFRTimeSerial(Now())) & ":00 FR"
           
    Set OutlookApp = CreateObject("outlook.application")
    Set OutlookMail = OutlookApp.CreateItem(0)
   
    With ActiveSheet.MailEnvelope
      .Introduction = message
      .Item.To = adresse
      .Item.cc = cc
      .Item.Subject = sujet
      '.Item.Send
    End With


Ce code fonctionne sur mon poste de travail.
Sur un autre poste, ça ne fonctionne pas. J'obtiens le message d'erreur suivant :

Code:


La méthode 'MailEnvelope' de l'objet -Worksheet' à échoué

Et Excel s'arrête sur la ligne :

Code:


ActiveWorkbook.EnvelopeVisible = True

Les postes de travail sont tous équipé de Windows 7 Entreprise et de Microsoft Office 2013 (Office 14).
Avez-vous déjà rencontré ce problème ? Avez-vous une idée pour m'aider à résoudre ce problème ?

Merci d'avance de votre retour,