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?

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

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?

Could you suggest something with respect to xmpp and windows phone 7 opensource.

could you please help me to get rid of it?
I want to build Chromium browser only.

Have you run the tests and got the results of the comparison?

Thanks