HTMLDB Engine : Oracle Apex
Alles in HTMLDB, Applikationen, Berichte, SQL ...
Re: ICS Datei erstellen und versenden
geschrieben von:
cc13 (Moderator)
Datum:
Hier mal mein Beispiel auf deines angepasst. Das funktioniert hier problemlos:
declare
v_count number;
l_selected APEX_APPLICATION_GLOBAL.VC_ARR2;
v_empfaenger varchar2(4000);
l_body_html varchar2(4000);
l_subject varchar2(100);
v_titel varchar2(100);
v_begin date;
v_begin_c varchar2(50);
v_ende date;
v_ende_c varchar2(50);
v_ort varchar2(255);
v_description varchar2(4000);
l_blob clob;
l_id number;
begin
select xxx, xxx, xxx, xxx, xxx
into v_titel, v_description, v_begin, v_end, v_bundle
from xxx;
v_ort := 'xxx';
v_description := replace(v_description,chr(13),'=0D=0A');
v_description := replace(v_description,chr(10));
v_begin_c := to_char(v_begin, 'YYYYMMDD');
v_ende_c := to_char(v_ende, 'YYYYMMDD');
v_begin_c := v_begin_c || 'T' || to_char(v_begin, 'HH24MI') || '00';
v_ende_c := v_ende_c || 'T' || to_char(v_end, 'HH24MI') || '00';
-- jetzt bauen wir das Attachment zusammen
l_blob := 'BEGIN:VCALENDAR' || chr(13) || CHR(10);
l_blob := l_blob || 'PRODID;ENCODING=QUOTED-PRINTABLE:Termin' || chr(13) || CHR(10);
l_blob := l_blob || 'VERSION:1.0' || chr(13) || CHR(10);
l_blob := l_blob || 'BEGIN:VEVENT' || chr(13) || CHR(10);
l_blob := l_blob || 'TZ:-1' || chr(13) || CHR(10);
l_blob := l_blob || 'DTSTART:' || v_begin_c || chr(13) || CHR(10);
l_blob := l_blob || 'DTEND:' || v_ende_c || chr(13) || CHR(10);
l_blob := l_blob || 'LOCATION;ENCODING=QUOTED-PRINTABLE:' || v_ort || chr(13) || CHR(10);
l_blob := l_blob || 'DESCRIPTION;ENCODING=QUOTED-PRINTABLE:' || v_description || chr(13) || CHR(10);
l_blob := l_blob || 'SUMMARY:' || v_bundle|| ': ' || v_titel || chr(13) || CHR(10);
l_blob := l_blob || 'END:VEVENT' || chr(13) || CHR(10);
l_blob := l_blob || 'END:VCALENDER' || chr(13) || CHR(10);
l_subject := 'Ein Termin fuer Sie';
l_body_html := '<html><body>';
l_body_html := l_body_html || '<b>Mailtext</b><br><br>';
l_body_html := l_body_html || '</body></html>';
-- jetzt die Mail absenden
l_id := APEX_MAIL.SEND(p_to => 'mail@andich.de',
p_from => 'mail@vonmir.de',
p_subj => l_subject,
p_body => 'Bitte beachten Sie den Mailanhang',
p_body_html => l_body_html);
APEX_MAIL.ADD_ATTACHMENT(p_mail_id => l_id,
p_attachment => clob2blob(l_blob),
p_filename => 'termin.vcs',
p_mime_type => 'application/hbs-vcs');
end;
--
Best regards,
Carsten mailto:carsten.cerny@cc13.com
My blog [cc13.com]
declare
v_count number;
l_selected APEX_APPLICATION_GLOBAL.VC_ARR2;
v_empfaenger varchar2(4000);
l_body_html varchar2(4000);
l_subject varchar2(100);
v_titel varchar2(100);
v_begin date;
v_begin_c varchar2(50);
v_ende date;
v_ende_c varchar2(50);
v_ort varchar2(255);
v_description varchar2(4000);
l_blob clob;
l_id number;
begin
select xxx, xxx, xxx, xxx, xxx
into v_titel, v_description, v_begin, v_end, v_bundle
from xxx;
v_ort := 'xxx';
v_description := replace(v_description,chr(13),'=0D=0A');
v_description := replace(v_description,chr(10));
v_begin_c := to_char(v_begin, 'YYYYMMDD');
v_ende_c := to_char(v_ende, 'YYYYMMDD');
v_begin_c := v_begin_c || 'T' || to_char(v_begin, 'HH24MI') || '00';
v_ende_c := v_ende_c || 'T' || to_char(v_end, 'HH24MI') || '00';
-- jetzt bauen wir das Attachment zusammen
l_blob := 'BEGIN:VCALENDAR' || chr(13) || CHR(10);
l_blob := l_blob || 'PRODID;ENCODING=QUOTED-PRINTABLE:Termin' || chr(13) || CHR(10);
l_blob := l_blob || 'VERSION:1.0' || chr(13) || CHR(10);
l_blob := l_blob || 'BEGIN:VEVENT' || chr(13) || CHR(10);
l_blob := l_blob || 'TZ:-1' || chr(13) || CHR(10);
l_blob := l_blob || 'DTSTART:' || v_begin_c || chr(13) || CHR(10);
l_blob := l_blob || 'DTEND:' || v_ende_c || chr(13) || CHR(10);
l_blob := l_blob || 'LOCATION;ENCODING=QUOTED-PRINTABLE:' || v_ort || chr(13) || CHR(10);
l_blob := l_blob || 'DESCRIPTION;ENCODING=QUOTED-PRINTABLE:' || v_description || chr(13) || CHR(10);
l_blob := l_blob || 'SUMMARY:' || v_bundle|| ': ' || v_titel || chr(13) || CHR(10);
l_blob := l_blob || 'END:VEVENT' || chr(13) || CHR(10);
l_blob := l_blob || 'END:VCALENDER' || chr(13) || CHR(10);
l_subject := 'Ein Termin fuer Sie';
l_body_html := '<html><body>';
l_body_html := l_body_html || '<b>Mailtext</b><br><br>';
l_body_html := l_body_html || '</body></html>';
-- jetzt die Mail absenden
l_id := APEX_MAIL.SEND(p_to => 'mail@andich.de',
p_from => 'mail@vonmir.de',
p_subj => l_subject,
p_body => 'Bitte beachten Sie den Mailanhang',
p_body_html => l_body_html);
APEX_MAIL.ADD_ATTACHMENT(p_mail_id => l_id,
p_attachment => clob2blob(l_blob),
p_filename => 'termin.vcs',
p_mime_type => 'application/hbs-vcs');
end;
--
Best regards,
Carsten mailto:carsten.cerny@cc13.com
My blog [cc13.com]
| Thema | Neugierige | geschrieben von | geschrieben |
|---|---|---|---|
 ICS Datei erstellen und versenden
|
4268 | Litetouch | |
|
Re: ICS Datei erstellen und versenden
|
1736 | cc13 | |
|
Re: ICS Datei erstellen und versenden
|
1655 | Litetouch | |
|
Re: ICS Datei erstellen und versenden |
1780 | cc13 | |
|
Re: ICS Datei erstellen und versenden
|
1372 | Litetouch | |
|
Re: ICS Datei erstellen und versenden
|
1592 | cc13 | |
|
Re: ICS Datei erstellen und versenden
|
1844 | Litetouch |