Textmail mit Anhang versenden?

Alle Fragen zur Netzwerkkommunikation

Re: Textmail mit Anhang versenden?

Beitragvon TT73GP7 » 20. Dez 2016, 20:11 Re: Textmail mit Anhang versenden?

so damit wir von selben reden habe ich eine kleine demo zusammen gebastelt

kann sich die mal jemand anschauen?

ich glaube ich verstehe es sonst nicht :(
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
TT73GP7
 
Beiträge: 226
Registriert: 29. Mär 2016, 19:45

Beitragvon theo » 21. Dez 2016, 09:17 Re: Textmail mit Anhang versenden?

TT73GP7 hat geschrieben:mal nee dumme frage?
wo müssen denn die DLL liegen?


C:\Windows\System32
theo
 
Beiträge: 8053
Registriert: 11. Sep 2006, 18:01

Beitragvon Michl » 21. Dez 2016, 11:28 Re: Textmail mit Anhang versenden?

@TT73GP7: Ich habe mal ein Beispielprojekt angehangen, wie ich das mit Synapse in einer Anwendung mache. Vielleicht gehts ja bei dir auch (habe mal Synapse mit beigefügt, falls es nicht als Package installiert ist)?:
Code: Alles auswählen
uses ..., mimepart, mimemess, smtpsend;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MIMEText    : TStrings;
  MIMEPart    : TMimePart;
  MIMEMessage : TMimeMess;
begin
  MIMEText := TStringList.Create;
  MIMEText.Add('Hallo,');
  MIMEText.Add('anbei ein Weihnachtsbild');
  MIMEText.Add('LG');
  MIMEText.Add('Der Weihnachtsmann');
 
  MIMEMessage := TMimeMess.Create;
 
  with MIMEMessage do
  try
    Header.Date := Now;
    Header.From := '';     // Absender eintragen
    Header.ToList.Clear;
    Header.ToList.Add(''); // Empfänger eintragen
    Header.CcList.Clear;
    Header.Subject := 'Bild von Weihnachten';
 
    MIMEPart := AddPartMultipart('mixed', nil);
 
    AddPartText(MIMEText, MIMEPart);
    AddPartBinaryFromFile(GetCurrentDir + PathDelim + 'Weihnachten.jpg', MIMEPart);
 
    EncodeMessage;
 
    if SendToRaw(Header.From,
                 Header.ToList.CommaText,
                 'smtp.1und1.de',  // Host eintragen
                 Lines,
                 '',               // Absender eintragen
                 '')               // Passwort eintragen
    then
      ShowMessage('E-mail gesendet.')
    else
      ShowMessage('E-mail nicht gesendet');
  finally
    Free;
    MIMEText.Free;
  end;
end;
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Code: Alles auswählen
type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection; 
Michl
 
Beiträge: 2260
Registriert: 19. Jun 2012, 11:54
OS, Lazarus, FPC: Win7 Laz 1.7 Trunk FPC 3.1.1 Trunk | 
CPU-Target: 32Bit/64bit
Nach oben

Beitragvon TT73GP7 » 23. Dez 2016, 09:19 Re: Textmail mit Anhang versenden?

hey ho,

vielen Dank Michl.
deine version funktioniert 1a

ich würde echt gerne wissen was ich falsch gemacht habe?
weil ich genau dieses beispiel schon hunderte male gefunden habe.

aber ich bin nun echt erleichtert das ich eine möglichkeit gefunden habe E-Mails zuverschicken.
ich hatte schon angst das es wieder soeine endlos suche wird :(

hach vielen dank
TT73GP7
 
Beiträge: 226
Registriert: 29. Mär 2016, 19:45

• Themenende •
Vorherige

Zurück zu Netzwerk



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

porpoises-institution
accuracy-worried