OLE Outlook Absender

[kdf]

Hallo,

ich finde nicht die Absenderadresse im OLE Object Outlook.

mi := Outlook.CreateItem(0); // 0=Mail 1=Termin
mi.SentOnBehalfOfName := DM1.QFirma.FieldByName('F_ABSMAIL').AsString;
... wird von Outlook wieder mit der Standardadresse überschrieben.


mi.mailitem.senderImailAddress := '[e-mail]';
... ist im OLE Object wohl nicht vorhanden

[himitsu]

imail (das ist doch kein Apfelprodukt )

SentOnBehalfOfName
Da findet man ganz viel, bezüglich "not working" ... vielleicht steht da auch ab und an eine Lösung dabei.

[kdf]

SentOnBehalfOfName

Das funktioniert wohl nur mit Exchange

[himitsu]

Vielleicht doch was anders probieren?

Hast du dir schon die Freude mit'm Outlook im Office 365 angetan?

Mit Outlook hatten wir auch immer mal wieder Probleme, vor allem was Dateianhänge betrifft. (am Ende nutzten wir dort dann die MAPI, aber die vom .NET)
#9 #11 #13 -> https://www.delphipraxis.net/215095-...ml#post1536506

Aber grundsätzlich sind wir inzwischen auf *.EML umgestiegen, welche wir generieren und dann via ShellExecute ans aktuelle Standard-MailProgramm weiterreichen.

[tomkupitz]

Vielleicht hilft das. Geht mit nur einem oder dem ersten Konto.

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
    olMailItem = 0;

var Outlook, MailItem: OleVariant;

begin
    try
      Outlook:=GetActiveOleObject('Outlook.Application');
    except
      try
        Outlook:=CreateOleObject('Outlook.Application');
      except
        Exit;
      end;
    end;

    try
      MailItem:=Outlook.CreateItem(olMailItem);

      MailItem.Recipients.Add('[e-mail]');

      MailItem.Subject:='...';
      MailItem.Body:='Text'; //oder HTMLBody

      MailItem.Attachments.Add('C:\abc.txt', EmptyParam, EmptyParam, EmptyParam);

      MailItem.Send;

    finally
      Outlook:=UnAssigned;
    end;
end;