Thema Datum  Von Nutzer Rating
Antwort
25.06.2024 17:02:54 Sigi
NotSolved
26.06.2024 13:26:48 Gast50318
NotSolved
Rot Outlook
 28.06.2024 16:37:10 Sigi
NotSolved

Ansicht des Beitrags:
Von:
Sigi		 Datum:
28.06.2024 16:37:10		 Views:
121		 Rating:
     
Antwort:
  Ja
Thema:
Outlook

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!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.06.2024 17:02:54 Sigi
NotSolved
26.06.2024 13:26:48 Gast50318
NotSolved
Rot Outlook
 28.06.2024 16:37:10 Sigi
NotSolved