Mail aus Programm abschicken

[Dalai]

Zitat von Gausi:

Du must dich also für eine Variante entscheiden.

Man kann auch sowas machen: PAnsiChar(AnsiString(StringVariable)); . Alternativ Funktionsparameter als AnsiString deklarieren, damit auch von außen klar ist, dass hier nur AnsiStrings übergeben werden können. Dann muss man logischerweise beim Aufruf der Funktion SendMail casten.

Zitat:

Mein erster Versuch wäre, alle PAnsiChar() durch PChar() zu ersetzen.

Kommt darauf an, wie die Strukturen deklariert sind. Könnte sein, dass hier wirklich ein PAnsiChar erwartet wird. XE2 deklariert die fraglichen Teile der Datenstruktur als LPSTR, also PAnsiChar.

Grüße
Dalai

[Uwe Raabe]

In Delphi gibt es die Standard-Action TSendMail in Unit Vcl.ExtActions. Vielleicht kannst du die ja direkt verwenden.
Ich würde dir ja auch vorschlagen, den Source zu analysieren, aber das wird mit einer Starter eventuell schwierig.

Nur so am Rande: Der gezeigte Code kann nicht vollständig sein, da die MapiMessage nirgendwo verarbeitet wird.

[Willie1]

Hallo Uwe,
du hat natürlich Recht, da habe ich was übersehen.

Delphi-Quellcode:

    // Senden
    if ShowDialog then
      MError := MapiSendMail(0, Application.Handle,
        MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI, 0)
    else
      // Wenn kein Dialogfeld angezeigt werden soll:
      MError := MapiSendMail(0, Application.Handle, MapiMessage, 0, 0);

    if MError <> SUCCESS_SUCCESS then
      MessageDlg(Format('Mail-Fehler: %d.',[MError]),mterror,[mbok],0);
  end; {von Christian Schwarz}

Da steht sogar der Name des Authors.

Ich muss jetzt mal eure Tipps verarbeiten. Danke Freunde.

Nein, es wird tatsächlich PAnsiChar erwartet, PChar geht nicht. Das Thema wird hier schon oft besprochen, die Beiträge sind aber alle sehr alt und bringen mich nicht weiter.


Willie.

[DaCoda]

Hallo Willie1,
ich mache das immer mit Indy-SMTP:

Code:

procedure TfrmMain.SendMail;
var
  AttachmentFile: TIdAttachmentFile;
begin
  try
    AntiFreeze.Active := True;
    Screen.Cursor := crHourGlass;
    try
      with IndyMessage do begin
        Clear;
        Organization := CompanyName;
        From.Name := FromName;
        From.Address := FromAdress;
        Recipients.EMailAddresses := ToAdress;
        Subject := Bodytext;
        ContentTransferEncoding := 'BASE64';
        CharSet := 'ISO-8859-1';

        Body.Add(BodyText03 + BodyText02 + FormatDateTime('dd.mm.yyyy', dmMain.tblProduktionsberichteProduktionszeitAnfang.AsDateTime) + ' - ' + comboSchicht.Text + ' - ' + comboLinie.Text);
        Body.Add('Projektnummer: ' + comboProjektnummer.Text + ' - ' + 'Projektname: ' + comboProjektname.Text + Space + BodyText04);
        Body.Add(BodyText05);
        Body.Add(BodyText06);
        Body.Add(BodyText07);

        AttachmentFile := TIdAttachmentFile.Create(MessageParts, AttachmentFileName);
      end;
      IndySMTP.Host := MailServer;
      IndySMTP.Username := MailUser;
      IndySMTP.Password := MailPassword;
      IndySMTP.Connect;
      if IndySMTP.Connected then begin
        IndySMTP.Send(IndyMessage);
        IndySMTP.Disconnect;
      end;
    except
      if IndySMTP.Connected then
        IndySMTP.Disconnect;
      Screen.Cursor := crDefault;
      FreeAndNil(AttachmentFile);
      AntiFreeze.Active := False;
    end;
  finally
    Screen.Cursor := crDefault;
    FreeAndNil(AttachmentFile);
    AntiFreeze.Active := False;
  end;
end;

Vielleicht hilft dir das ja weiter (?)

[Willie1]

Zitat von Uwe Raabe:

In Delphi gibt es die Standard-Action TSendMail in Unit Vcl.ExtActions. Vielleicht kannst du die ja direkt verwenden.

Hallo Uwe, so klappt es gut mit Vcl.ExtActns. Es ist erfreulich, mit wie wenig Sourcecode man auskommt.


Danke und schönen Sonntag Abend
Willie.

[Samuel Kurmann]

Hallo Zusammen

Ich habe versucht die Stanardaktion zu verwenden wie es von Embarcadero beschrieben ist. Leider passiert da gar nichts. (https://docwiki.embarcadero.com/Code...ndMail_(Delphi))
Übersehe ich da irgendwas?
Ich verwende Delphi 10.4, Windows 11 und habe es mit Outlook und Thunderbird versucht.

Beste Grüsse

[Sinspin]

how-to-send-email-in-delphi
Via Outlook. Das funzt. Verwende ich etwas erweitert auch.

[Samuel Kurmann]

Diese Methoden kenne ich und benutze ich teilweise auch, es geht mir speziell um die TSendMail Aktion und warum diese nicht so funktioniert wie von Embarcadero beschrieben.

[rwalper]

Ich vermute die SendMail-Action aus Vcl.ExtActns nutzt die Mapi-Schnittstelle.
Nur mal eine 2. Vermutung: du hast vielleicht eine 32-bit-Anwendung und dein Email-Programm, das für MAPI registriert ist, ist eine 64-bit-Anwendung oder umgekehrt.