Tut mir leid, das Problem ist so nicht nachvollziehbar.
Wenn ich mir eine Notiz erstelle, in der folgendes steht:...
Notiz1
www.test.de
maximaus@domain.de
... dann das Makro laufen lasse...
Option Explicit
Public Sub MyTest()
Dim objItem As Outlook.NoteItem
Dim strUser As String
strUser = "Maxi Maus"
Set objItem = GetNamespace("MAPI").GetDefaultFolder(olFolderNotes).Items(1)
With objItem
.Body = .Body & vbCrLf & Date & " Daten Aktualisiert " & strUser & ": " & vbCrLf
.Save
End With
End Sub
... dann steht in der Notiz anschließend folgendes:
Notiz1
www.test.de
maximaus@domain.de
02.09.2013 Daten Aktualisiert Maxi Maus:
Demnach genau so wie ich es erwarten würde.
Inwieweit das ganze bei dir was mit einem Kontakt (den du speicherst und schließt) zu tun hat, sehe ich nicht.
|