ich habe den code aus folgendme link:
http://www.delphipraxis.net/internal...light=mapiwrap
Delphi-Quellcode:
procedure TForm2.Button3Click(Sender: TObject);
var
InBox: TInbox;
MailItem: TMapiMailItem;
begin
InBox := TInBox.Create('Doe, John');
try
MailItem := InBox.GetFirst;
mMails.Lines.Add(Format('From: %s <%s>'#13#10'Subject: %s'#13#10'%s'#13#10,
[MailItem.Sender,
MailItem.SenderEmail,
MailItem.Subject,
Copy(MailItem.Body, 1, Min(50, Pos(#13, MailItem.Body)))]));
MailItem.Free;
MailItem := InBox.GetNext;
finally
InBox.Free;
end;
end;
ich brauche einen zugriff auf outlook ohne sicherheitsabfrage weil ich mehrere 100mails versenden will.
das ist nötig weil die datenbank von einem anderen programm genutzt werden muss, in der alle emailadressen drinstehen.
es ist wichtig die mails über outlook zu versenden, damit diese dort eingetragen werden um zu schauen wer eine email bekommen hat.
nun finde ich keinen nützlichen beitrag wie ich mit mapiwrap eine mail versenden kann :/
Gruß Jokerface