Ich versuche per API eine Mail zu versenden, was mit Autoit auf diesem Wege kein Problem ist, in Lazarus kommt der Fehler ...hat Exception-Klasse External: SIGEGV ausgelöst bei Adresse 10212DA4 und danach kommt der Assembler zu Vorschein, was mir leider nicht sagt. Ich gebe zu um im Debuggen von Lazarus wenig Erfahrung zu habe, darum würde ich mich um eine Tip sehr freuen, hier der Einfache Code dazu:
Code: Alles auswählen
const
ServerName = 'DVOBJAPILib.DvISEAPI';
procedure TForm1.Button1Click(Sender: TObject);
var
Server : Variant;
oAccount: Variant;
oArchive: Variant;
oMailItem: Variant;
begin
if Assigned(InitProc) then
TProcedure(InitProc);
try
Server := CreateOleObject(ServerName);
except
label1.Caption:=('Unable to start Api.');
Exit;
end;
oAccount := server.Logon('', '', '', '', '', 'NOAUTH');
oArchive := oAccount.GetSpecialArchive(102);
oMailItem := oArchive.NewItem(2);
oMailItem.Recipients.Add('test@mailtest.test', 'MAIL', '');
oMailItem.Subject := 'Testmail per Lazarus';
oMailItem.BodyText.HTMLText := '"<hmtl><body>"&$Text&"</body></html>"';
oMailItem.send;
end;
Verein
Links
