Email über Outlook Express direkt (ohne Fenster) versenden

[Helmi]

Mit SW_SHOWNORMAL, wie auch mit SW_HIDE wird trotzdem ein Fenster angezeigt

[KodeZwerg]

Klappt es so ohne Fenster bei Dir?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Outlook, Mailitem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(0);
  MailItem.Recipients.Add('[e-mail]');
  MailItem.Subject := 'Delphi-PRAXiS';
  MailItem.Body := 'Inhalt';
  MailItem.Attachments.Add('C:\TestDatei.txt'); 
  MailItem.Send;
  Outlook := Unassigned; 
end;

[Helmi]

Zitat von KodeZwerg:

Klappt es so ohne Fenster bei Dir?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Outlook, Mailitem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(0);
  MailItem.Recipients.Add('[e-mail]');
  MailItem.Subject := 'Delphi-PRAXiS';
  MailItem.Body := 'Inhalt';
  MailItem.Attachments.Add('C:\TestDatei.txt'); 
  MailItem.Send;
  Outlook := Unassigned; 
end;

Delphi-Quellcode:

uses
  ComObj;

fehlt dabei noch.

Unter Windows 10 mit Outlook funktioniert der Code, auf dem WHS (was annähernd Windows Server 2003 ist) mit Outlook Express funktioniert es nicht.
Fehlermeldung: "Ungültiges Klassenzeichenfolge, ProgID: "Outlook.Application"

[Delphi.Narium]

Outlook.Application ist halt nicht Outlook Express sondern Outlook.

Hilft davon was weiter?
https://social.msdn.microsoft.com/Fo...forum=exceldev

[KodeZwerg]

Zitat von Helmi:

Unter Windows 10 mit Outlook funktioniert der Code, auf dem WHS (was annähernd Windows Server 2003 ist) mit Outlook Express funktioniert es nicht.
Fehlermeldung: "Ungültiges Klassenzeichenfolge, ProgID: "Outlook.Application"

Ohhh, das wusste ich nicht das Microsoft da anders vorgeht. Hmmmm weder ShellExecute noch über OLE klappts.
Nach ein wenig lesen über Express bin ich nicht wirklich schlauer geworden um Deine Anfrage zufrieden stellend beantworten zu können. Es lautet überall ein Nein zum Hintergrund Senden mit der Express.
Da Du eine Console-Application hast die das ja anscheinend kann, frag ich einfach mal nach ob Du die hier hochladen kannst? Da könnte man ja mal reinschauen wie es diese .exe anstellt.

Alternativ auf Indy Mail o.ä..

[Dalai]

Im Zweifel geht auch Blat, Bmail oder ein anderer Kommandozeilen-Mailer.

Grüße
Dalai

[Helmi]

Zitat von Dalai:

Im Zweifel geht auch Blat, Bmail oder ein anderer Kommandozeilen-Mailer.

Grüße
Dalai

Es muss ja auch eine Möglichkeit mit den Board-eigenen Mitteln geben.
Schließlich kann das die WHS-Konsole ja auch

[rokli]

Hallo Helmi,

kannst das nicht mit den Indy Komponenten machen? Ich maile mit dieser Routine via SMTP:

Delphi-Quellcode:

    
procedure p_MailSender;
begin
{-------------------------------------------------------------------------------

meine Variablen:

    sMailUser         : String;         // name@domain
    sMailPwd         : String;         // pwd von name@domain
    sMailSender      : String;         // wird nicht benötigt ("im Auftrage von")
    sMailFrom         : String;         // DerGä[e-mail]
    sMailRecipients   : String;         // Empfängerliste
    sMailCCList      : String;         // CC Empfängerliste
    sMailBCCList      : String;         // BCC Empfängerliste

    sMailHost         : String;         // Host ID
    iMailPort         : Integer;        // Host Port (25)

   MailMessage.Priority                     := mpNormal;
    sMailSubject      : String;         // Betrefftext
    sMailBody         : String;         // Mail Text
    sMailAttach      : String;         // Dateiname und -Pfad Anlage
-------------------------------------------------------------------------------}
var
   MailMessage                        : TidMessage;
   Anhang                           : TIdAttachment;
begin
   try
      try
         MailMessage                              := TidMessage.Create();   // UM DEM PROBLEM MIT DEN ANHÄNGEN bei zukommen

         MailSmtp.Username                        := sMailUser;            // name@domain
         MailSmtp.Password                        := sMailPwd;            // pwd von name@domain
//         MailMessage.Sender.Address               := sMailSender;         // wird nicht benötigt ("im Auftrage von")
         MailMessage.From.Address               := sMailFrom;            // DerGä[e-mail]
         MailMessage.Recipients.EMailAddresses   := sMailRecipients;      // Empfängerliste
         MailMessage.CCList.Clear;
         MailMessage.CCList.EMailAddresses      := sMailCCList;         // CC Empfängerliste
         MailMessage.BCCList.Clear;
         MailMessage.BCCList.EMailAddresses      := sMailBCCList;         // BCC Empfängerliste

         MailSmtp.Host                           := sMailHost;
         MailSmtp.Port                           := iMailPort;

         MailMessage.Priority                     := mpNormal;
         MailMessage.Subject                      := sMailSubject;
         MailMessage.Body.Add(sMailBody);

         // Anhänge: Uses Klausel:   IdAttachment, IdMessageParts, IdAttachmentFile;
         // Anhang definieren in:    VAR Anhang : TIdAttachment;
         MailMessage.MessageParts.Clear;
         if sMailAttach <> '' then
            Anhang   := TidAttachmentFile.Create(MailMessage.MessageParts, sMailAttach);

         MailSmtp.Connect;
         MailSmtp.Send(MailMessage);

         MailSmtp.Disconnect(true);

      except
         on E : Exception do //  EIdSmptException do //EIdException do
         begin
            Showmessage('Fehler: ' + E.Message);
         end;
      end;
   finally
      // um Fehler zu vermeiden: Mailer abhängen und "alte" Anhänge löschen
      MailSmtp.Disconnect(true);
      MailMessage.MessageParts.Clear;
      MailMessage.Destroy;
      ShowMessage('finally');
   end;

end;

Viel Erfolg!

Rolf