|
| Autor |
Nachricht |
mille81
Newbie
Anmeldedatum: 25.01.2011
Beiträge: 1
|
UTF-8 kodierte ics Datei mit VBA erstellen
Verfasst am: 25.01.2011, 13:34 |
|
|
Hallo zusammen,
habe folgendes Problem.
Aus Outlook exportierte ics Datei hat das Format UTF-8. Öffnet man den Termin wird alles korrekt dargestellt.
Jetzt erzeuge ich aus einer Acces Datenbank via VBA ebenfalls eine ics Datei mit identischem Aufbau,
bei der verschiedene Variablen durch Daten aus der Datenbank ersetzt werden.
Öffne ich diese ics Termindatei zerschiesst er alle Umlaute etc. Grund: VBA exportiert im ANSI Format.
Was muss ich tun um die Datei im UTF-8 Format zu erzeugen.
| Code: | 'Veranstaltung auslesen
veranstaltung = Parent!name
veranstaltung_art = DLookup("art", "tbl_format", "ID_VA = " & Parent!ID_VA)
strDateiname = "X:\_Outlook_Termine" & Parent!id_veranst & "_" & Me!B_ID & ".ics"
Open strDateiname For Output As #1
Print #1, "BEGIN:VCALENDAR"
'Print #1, "PRODID:-//Microsoft Corporation//Outlook 11.0 MIMEDIR//EN"
Print #1, "VERSION:2.0"
Print #1, "METHOD:PUBLISH"
Print #1, "BEGIN:VEVENT"
Print #1, "ORGANIZER:MAILTO:anmeldung@test.de"
Print #1, "DTSTART:" & jahr & monat & tag & "T" & stunde_a & minute_a & "00"
Print #1, "DTEND:" & jahr & monat & tag & "T" & stunde_e & minute_e & "00"
Print #1, "LOCATION;ENCODING=QUOTED-PRINTABLE:" & veranstaltungsort
Print #1, "TRANSP:OPAQUE"
Print #1, "SEQUENCE:0"
Print #1, "UID:" & Parent!id_veranst & "_" & Me!B_ID
Print #1, "DTSTAMP:" & ts_jahr & ts_monat & ts_tag & "T" & ts_stunde & ts_minute & "00"
Print #1, "SUMMARY;ENCODING=QUOTED-PRINTABLE:AutoUni - " & veranstaltung_art & ": " & veranstaltung
Print #1, "DESCRIPTION;ENCODING=QUOTED-PRINTABLE:=0D=0ABitte beachten Sie, dass Sie diesen Termin durch das Speichern in Ihrem Outlook-Kalender nur v o r m e r k e n .=0D=0A=0D=0A"
Print #1, "PRIORITY:3"
Print #1, "X-MICROSOFT-CDO-IMPORTANCE:1"
Print #1, "CLASS:PUBLIC"
Print #1, "BEGIN:VALARM"
Print #1, "TRIGGER:-PT2880M"
Print #1, "ACTION:Display"
Print #1, "DESCRIPTION:Reminder"
Print #1, "End: VALARM"
Print #1, "End:VEVENT"
Print #1, "End:VCALENDAR"
Close #1
MsgBox "Datum erzeugt"
End Sub |
|
|
| |
|
 |
|
|
Registrieren
Login
