Hallo,
ich erstelle Mails über eine Wrapperfunktion. Beim Zuweisen des Mailquelltextes zeigt Outlook die o.g. Fehlermeldung an; nach Klick darauf wird die Mail korrekt angezeigt. Was könnte der Grund dafür sein?
Hinweis: rMyOLMail.sBody enthält den Quelltext aus einem Worddokument (in HTML).
Ein kurzer Quelltextauszug:
[LEFT] //Initialisierungen
olMyApp := TOutlookApplication.Create(nil);
olMyMailItem := TMailItem.Create(nil);
try
olMyApp.Connect;
nmSpace := olMyApp.GetNamespace('MAPI');
nmSpace.Logon(AG_EMPTY, AG_EMPTY, False, False);
olMyMailItem.ConnectTo(olMyApp.CreateItem(olMailIt em) as MailItem);
//....einiger anderer Code
//4. Betreff
olMyMailItem.Subject := rMyOLMail.sSubject;
//5. Mail-Body
if rMyOLMail.bHTML then begin
//ein paar Schönheitskorrekturen, damit alles als HTML erscheint
rMyOLMail.sBody := '<p><font face="Arial" size="1">' + rMyOLMail.sBody;
rMyOLMail.sBody := rMyOLMail.sBody + '</font></p>';
rMyOLMail.sBody := rMyOLMail.sBody + slSig.Text;
//===>>> nach der folgenden Zeile kommt die Fehlermeldung:
olMyMailItem.HTMLBody := rMyOLMail.sBody;
end
else begin
rMyOLMail.sBody := rMyOLMail.sBody + slSig.Text;
olMyMailItem.Body := rMyOLMail.sBody;
//JEW 25.09.08 ab OutlookXP-TLB setzen (Bug in Outlook2000: erzeugt immer HTML-Mails):
olMyMailItem.BodyFormat := olFormatPlain;
//------------------------------------------------------------------------------------
end;
mfg
Jens Wahl
ich erstelle Mails über eine Wrapperfunktion. Beim Zuweisen des Mailquelltextes zeigt Outlook die o.g. Fehlermeldung an; nach Klick darauf wird die Mail korrekt angezeigt. Was könnte der Grund dafür sein?
Hinweis: rMyOLMail.sBody enthält den Quelltext aus einem Worddokument (in HTML).
Ein kurzer Quelltextauszug:
[LEFT] //Initialisierungen
olMyApp := TOutlookApplication.Create(nil);
olMyMailItem := TMailItem.Create(nil);
try
olMyApp.Connect;
nmSpace := olMyApp.GetNamespace('MAPI');
nmSpace.Logon(AG_EMPTY, AG_EMPTY, False, False);
olMyMailItem.ConnectTo(olMyApp.CreateItem(olMailIt em) as MailItem);
//....einiger anderer Code
//4. Betreff
olMyMailItem.Subject := rMyOLMail.sSubject;
//5. Mail-Body
if rMyOLMail.bHTML then begin
//ein paar Schönheitskorrekturen, damit alles als HTML erscheint
rMyOLMail.sBody := '<p><font face="Arial" size="1">' + rMyOLMail.sBody;
rMyOLMail.sBody := rMyOLMail.sBody + '</font></p>';
rMyOLMail.sBody := rMyOLMail.sBody + slSig.Text;
//===>>> nach der folgenden Zeile kommt die Fehlermeldung:
olMyMailItem.HTMLBody := rMyOLMail.sBody;
end
else begin
rMyOLMail.sBody := rMyOLMail.sBody + slSig.Text;
olMyMailItem.Body := rMyOLMail.sBody;
//JEW 25.09.08 ab OutlookXP-TLB setzen (Bug in Outlook2000: erzeugt immer HTML-Mails):
olMyMailItem.BodyFormat := olFormatPlain;
//------------------------------------------------------------------------------------
end;
mfg
Jens Wahl