Du hattest sicher recht!

Ich wollte mich mit der Outlook - Sytax nich abmühen. Hier mein Ergebnis mit einem echten Problem:

Funktioniert alles recht gut, aber innerhalb der vCard werden Umlaute falsch angezeigt!

Eine Umstellung in Outlook auf auf UTF - 8 usw. bringt keine Abhilfe. Der Text im Beftreff etc. steht richtig da!

Hier mein Code:

Sub SigiW()
     Dim objOutlook As Outlook.Application
     Dim objExplorer As Outlook.Explorer
     Dim objAppointmentItem As AppointmentItem
     Dim myItem As Object
     Dim strForwardTo As String
     Dim oForward As MailItem
     strForwardTo = "xxx@xxx.at"
     Set objOutlook = New Outlook.Application
     Set objExplorer = objOutlook.ActiveExplorer
     If Not objExplorer.Selection.Count = 0 Then
         Set objAppointmentItem = _
             objExplorer.Selection.Item(1)
     End If
     ' Set GetSelectedAppointmentItem = objAppointmentItem

     Set oForward = objAppointmentItem.ForwardAsVcal
     oForward.BodyFormat = olFormatHTML
     oForward.Recipients.Add strForwardTo
     ' oForward.Display
     oForward.Send
     Set oForward = Nothing
End Sub

LG und für Tipps dankbar!!