Hi
Vielen Dank klingt super
Habe nun die Hilfs Funktion in meinen Kontakt Formular Code kopiert so:
' Hilfsfunktion
PrivateFunctionContactNoteBody(Contact AsOutlook.ContactItem) AsString
DimobjRegExp AsObject
OnErrorResumeNext
SetobjRegExp = CreateObject("VBScript.RegExp")
OnErrorGoTo0
IfobjRegExp IsNothingThen
ContactNoteBody = Contact.Body
Else
WithobjRegExp
.Global = True
.IgnoreCase = True
.MultiLine = True
.Pattern = "\bHYPERLINK\s+"".+""\s+(.+)\b"
ContactNoteBody = .Replace(Contact.Body, "$1")
EndWith
SetobjRegExp = Nothing
EndIf
EndFunction
Meine Kenntnisse reichen aber leider nicht aus um die Hilfsfunktion jetzt in meinem bestehenden code zu nutzen.
Wenn ich recht verstehe machst Du das mit:
With objCI
' Notiz des Kontakts ändern
.Body = ContactNoteBody(objCI) & vbNewLine & _
Format$(Date, "yyyy-mm-dd") & " Daten Aktualisiert " & strUser & ": " & vbNewLine
' Änderung speichern
.Save
End With
Set objCI = Nothing
Ware super wenn Du mir bitte mir noch helfen könntest dass jetzt in meinen code umzusetzen ich habe:
Sub DatenOK_click()
Item.Body = Item.Body & vbCrLf & Date() & " Daten Aktualisiert " & strUser & ": " & vbCrLf
End Sub
Was muss ich tun?
Vielen Dank im Voraus.
LG Witzker
|