var MyOutlook,MailItem: variant;<BR>
i: integer;<BR>
verzeichnis,verzeichnis_1: string;<BR>
begin<BR>
P_Interesse.Visible:=false;<BR>
if e_betreff.text<>'' then<BR>
begin<BR>
MyOutlook:=CreateOLEObject('Outlook.application'); <BR>
MailItem:=myoutlook.createitem(<B>olMailItem</B>);<BR>
MailItem.subject:=e_betreff.text;<BR>
MailItem.to :=e_mail.text;<BR>
MailItem.body := RE_mail.text;<BR>
bei 97 hat er mein olmailItem erkannt, bei 2000 bekomme ich eine Fehlermeldung, dass er mit dem Begriff nichts anfangen kann.
Was mache ich falsch?
Danke euch Maik
i: integer;<BR>
verzeichnis,verzeichnis_1: string;<BR>
begin<BR>
P_Interesse.Visible:=false;<BR>
if e_betreff.text<>'' then<BR>
begin<BR>
MyOutlook:=CreateOLEObject('Outlook.application'); <BR>
MailItem:=myoutlook.createitem(<B>olMailItem</B>);<BR>
MailItem.subject:=e_betreff.text;<BR>
MailItem.to :=e_mail.text;<BR>
MailItem.body := RE_mail.text;<BR>
bei 97 hat er mein olmailItem erkannt, bei 2000 bekomme ich eine Fehlermeldung, dass er mit dem Begriff nichts anfangen kann.
Was mache ich falsch?
Danke euch Maik
Comment