EMail über Outlook 2003 versenden

[HolgerCW]

SMTP funktioniert da nicht bei den Rechnern. Wäre also weiterhin an einer Abfrage des SENT-Ordners interressiert ?

[Perlsau]

Zitat:

Zitat von HolgerCW (Beitrag 1225485)

SMTP funktioniert da nicht bei den Rechnern. Wäre also weiterhin an einer Abfrage des SENT-Ordners interressiert ?

Dazu findest du haufenweise Material, wenn du nur einmal selber googlen möchtest. Tutorials für die Handhabung eines Mailproviders findest du ebenfalls, wenn du willst. Schau doch mal beim Delphi-Treff in die entsprechenden Tutorials hinein, erarbeite dir das Wissen, wie diese Technik funktioniert und entwickle dann selbst eine Abfrage. Da hast du mehr davon, als wenn ich dir hier meinen Code reinkopiere, auf daß du ihn nur noch in dein Programm kopieren mußt.

[Puke]

Moinse,
da ich von PHP so gar keine Ahnung habe :oops:, stelle ich meine Frage dazu einfach in den Raum:
Kann man dass nicht auch über PHP lösen?:lol:

Hier hab ich nen bisschen Code dazu gefunden und dass man Delphi mit PHP koppeln kann weiß ich, da ich meine IP-Adresse gerne darüber herausfinde. Vielleicht geht dieser Weg auch mit ner EMail?

Mit diesem neuen Gedanken
Puke:stupid: ( Hoffe es war nicht völlig OT )

[berens]

Beispiel für SENT / Gesendete Objekte mit den OfficePartner Komponenten für Outlook:

Delphi-Quellcode:

       
var
  InBox: TInbox;
  MailItem: TMapiMailItem;
  FOpOutlook: TOpOutlook;

  oMAPIFolder: MAPIFolder;
  oItems: Items;

  oMail: _MailItem;
  oMailItem: TOpMailItem;
  sfilter: string;

begin
  if not FopOutlook.Connected then FopOutlook.Connected := True;

        // Post-Eingang
        oMAPIFolder := FopOutlook.MapiNamespace.GetDefaultFolder(olFolderInbox);
        if assigned(oMAPIFolder) then begin
          // Nur die letzten 14 Tage anbieten
          oItems := oMAPIFolder.Items;
          sFilter := '[SentOn] >'''+ DateToStr(floor(now-14)) + '''';
          oItems := oItems.Restrict(sfilter);

          if oItems.Count > 0 then begin
            for i := 1 to oItems.Count do begin // Items uses a 1 based index

              if oItems.Item(i).QueryInterface( _MailItem, oMail ) = s_OK then begin
                oMailItem := TOpMailItem.Create( oMail );

                tmpMail := TMail.Create(NIL); // <-- Mail ist eine Klasse von mir
                tmpMail.EntryID := oMailItem.MailItem.EntryID;
                tmpMail.slContacts.Add(GetSenderEMailByEntryID(tmpMail.EntryID));
                tmpMail.Subject := oMailItem.Subject;
                tmpMail.Body := oMailItem.Body;
                tmpMail.SentOn := oMailItem.MailItem.SentOn;
                tmpMail.Richtung := riEingehend;
                FclMail.Add(tmpMail);

                FreeAndNil(oMailItem);
              end;
            end;
          end;
        end;
      end;