mit MAPI WRAPPER mail senden

**jokerfacehro**

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

mit MAPI WRAPPER mail senden

mit MAPI WRAPPER mail senden

Forumregeln