Getting things done and Outlook – Keep original message attached to task or appointment

3 Comments

1. Joost says:

   January 10, 2012 at 9:00 pm

   Johan, ik ben halverwege hetzelfde boek dat jij ook hebt gelezen (Elke dag je hoofd en inbox leeg). Ik ben inderdaad tegen hetzelfde probleem als jij aangelopen. Ik heb je code even uitgeprobeerd en dit is inderdaad wel een oplossing. Ik heb nog wel een paar wensen, maar bezit te weinig kennis van VBA om het zelf aan te passen, maar wellicht zou jij er nog eens naar kunnen kijken. Ik wil eigen 3 knoppen en daarmee wil ik het volgende doen:
   - verplaats item naar de map 'Kort Archief'. Code hiervoor heb ik inmiddels gevonden, dat lukt dus wel.
   - kopieer item (met evt bijlagen) naar een afspraak
   - kopieer item (met evt bijlagen) naar een afspraak

   In jouw code komt de lijst waaruit een map/taak/agenda gekozen kan worden. Ik wil eigenlijk dmv sneltoetsen (gekoppeld aan een knop) direct een item overzetten naar een mailbox (Kort Archief), afspraak of taak.

   Dat is de eerste wens. De tweede is de omschrijving van het nieuwgemaakte item wat je de standaardnaam "Orginal message" meegeeft. Ik zou dat eigenlijk automatisch het onderwerp van het bericht als naam willen geven.

   Zie je kans om de 2 wensen om te zetten in de benodigde code?
2. Johan de Koning says:

   January 15, 2012 at 5:25 pm

   Joost,

   Om een email direct naar een vooraf ingestelde locatie te kopieren heb ik de bestaande code iets aangepast.

   Sub CopyEmailToNewItemAtPredefinedLocation(pathToLocation As String)
   
       Dim objMailItem As Outlook.MailItem
   
       If (ActiveExplorer.Selection.Count = 1) And (ActiveExplorer.Selection.Item(1).Class = olMail) Then
           Set objMailItem = ActiveExplorer.Selection.Item(1)
       End If
   
       Dim selectedFolder As folder
       Set selectedFolder = GetFolderByPath(pathToLocation)
   
       Const attPath As String = "C:\temp\"
   
       Set objNewItem = selectedFolder.Items.Add(selectedFolder.DefaultItemType)
       With objNewItem
           .Subject = objMailItem.Subject
           .Body = objMailItem.Body
   
           objMailItem.SaveAs attPath & objMailItem.EntryID
   
           .Attachments.Add attPath & objMailItem.EntryID, olEmbeddeditem, , "Orginal message"
   
           Kill (attPath & objMailItem.EntryID)
   
           .Display
       End With
   End Sub
   
   Function GetFolderByPath(pathName As String) As folder
       Dim nameSpace As Outlook.nameSpace
       Dim pathNameParts() As String
       Dim foundFolder As folder
   
       pathNameParts = Split(pathName, "\")
       Set nameSpace = Outlook.GetNamespace("MAPI")
       Set folderCollection = nameSpace.folders
   
       For Each pathNamePart In pathNameParts
           Set foundFolder = folderCollection(pathNamePart)
           Set folderCollection = foundFolder.folders
       Next pathNamePart
   
       Set GetFolderByPath = foundFolder
   End Function
   

   De GetFolderByPath functie zoekt aan de hand van een path de juiste folder (locatie) op. Om bijvoorbeeld direct naar de Agenda te kopieren is het path in mijn situatie mijnemailadres@domainnaam.nl\Calendar. De path naam hangt een beetje af van hoe je mailbox binnen Outlook heet. Bij mij is dat mijn emailadres maar je kan het ook MailBox Werk hebben genoemd. Dit moet je dus even uitzoeken. Deze GetFolderByPath functie wordt gebruikt door aangepaste CopyEmailToNewItemAtPredefinedLocation methode.

   Om vervolgens knoppen (met eventuele sneltoetsen) te koppelen aan deze functionaliteit heb ik twee extra methodes gemaakt welke het path doorgeven aan de CopyEmailToNewItemAtPredefinedLocation.

   Sub CopyEmailToCalendar()
       CopyEmailToNewItemAtPredefinedLocation ("mijnemailadres@domainnaam.nl\Calendar")
   End Sub
   
   Sub CopyEmailToTasks()
       CopyEmailToNewItemAtPredefinedLocation ("mijnemailadres@domainnaam.nl\Tasks")
   End Sub
   

   Op je tweede vraag of in plaats van "Original Message" de oorspronkelijke titel van de email getoond kan worden als attachment naam, moet de volgende regel

   .Attachments.Add attPath & objMailItem.EntryID, olEmbeddeditem, , "Orginal message"
   

   aangepast worden naar

   .Attachments.Add attPath & objMailItem.EntryID, olEmbeddeditem, , objMailItem.Subject
   

   Wellicht kun je met deze informatie weer vooruit. Succes
3. Joost says:

   January 18, 2012 at 12:41 am

   Johan, werkt prima zoals ik het had aangegeven.
   Ik zie nog 2 dingen die ik graag anders zou willen zien:

   1. Het ingevoegde mailitem staat onder de platte tekst. Bij een lange mail moet je dan helemaal naar onderen scrollen om de oorspronkelijk mail te openen. Ik zou liever het ingevoegde mailitem gelijk bovenaan willen hebben en daaronder de platte tekst.

   2. Bij de platte tekst wordt een link helemaal met de kode HYPERLINK ... getoond. Dat staat heel onrustig.

   In mijn oorspronkelijke mail heb ik staan: (en dat zou ik dan ook willen zien)
   http://www.outlook-tips.net/code-samples/save-and-delete-attachments/
   http://www.vbaexpress.com/kb/getarticle.php?kb_id=981

   en dit wordt weergegeven als:
   HYPERLINK "https://www.upcmail.net/do/redirect?url=http%253A%252F%252Fwww.outlook-tips.net%252Fcode-samples%252Fsave-and-delete-attachments%252F&hmac=ffb7168c23dd04f655fd034f9dc21c9e" \nhttp://www.outlook-tips.net/code-samples/save-and-delete-attachments/
   HYPERLINK "https://www.upcmail.net/do/redirect?url=http%253A%252F%252Fwww.vbaexpress.com%252Fkb%252Fgetarticle.php%253Fkb_id%253D981&hmac=19c7c0602b8f633cdf599985ddbe8819" \nhttp://www.vbaexpress.com/kb/getarticle.php?kb_id=981

   Kun je dat ook nog oplossen?

0 Trackbacks

Leave a Reply Cancel reply