Ik heb een kode die van een mailbericht een taak maakt. Daarbij wil ik zowel de platte tekst van het mailbericht in de taak als een ingevoegd msg-bestand. Dat lukt allemaal wel met onderstaande kode, alleen komt het ingevoegde msg-bestand onder de platte tekst te staan en dat wil ik juist omgekeerd hebben.
Wie kan me helpen?
With objTask
.StartDate = DayToRemind
.Subject = "Herinnering voor opvolgen: " & objItem.Subject
'.Status = olTaskInProgress
.Importance = objItem.Importance
.DueDate = DayToRemind
.ReminderSet = True
' het originele mailbericht invoegen in de taak
' als eerste wordt mail gekopieerd
objItem.SaveAs attPath & objItem.EntryID
' dan wordt deze ingevoegd in de taak
objTask.Attachments.Add attPath & objItem.EntryID, olEmbeddeditem
objTask.Body = objItem.Body
Wie kan me helpen?
With objTask
.StartDate = DayToRemind
.Subject = "Herinnering voor opvolgen: " & objItem.Subject
'.Status = olTaskInProgress
.Importance = objItem.Importance
.DueDate = DayToRemind
.ReminderSet = True
' het originele mailbericht invoegen in de taak
' als eerste wordt mail gekopieerd
objItem.SaveAs attPath & objItem.EntryID
' dan wordt deze ingevoegd in de taak
objTask.Attachments.Add attPath & objItem.EntryID, olEmbeddeditem
objTask.Body = objItem.Body