Hallo,
ich würde gerne eine Mail aus einem FireMonkey Programm erstellen. Ich benutze FireMonkey nur wegen dem Design und nicht weil ich das ganze in OSX umsetzen möchte. Daher kann ich auch VCL Komponenten manuell deklarieren. Unter VCL habe ich immer JvMail benutzt. Das ging auch super. Habe es unter Firemonkey versucht, aber das geht schief (Anwendungsfehler beim Button OnClick):
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
| procedure TfrmCheckOut.BtnCheckoutClick(Sender: TObject); var i: Integer; begin if frmSettings.ListMail.Items.Count > 0 then for i := 0 to frmSettings.ListMail.Items.Count do Mail.Recipient.AddRecipient(frmSettings.ListMail.Items[i]); Mail.Subject := 'Trainingsprotokoll KW' + frmMain.KWS; Mail.Body.Add(frmSettings.MailText.Text); if MPath.Items.Count > 0 then for i := 0 to MPath.Items.Count do Mail.Attachment.Add(MPath.Items[i]); try Mail.SendMail(False); except ShowMessage('Beim erstellen der E-Mail ist ein Fehler aufgetreten.'); end; end; |
Das interessante ist, das der Fehler nur kommt, wenn ich eine Eigenschaft wie Subject oder Body fülle. Lasse ich alles leer, kommt statt des Fehlers die ShowMessage im "try..except"-Block.
Hier nochmal der Fehler:
Ich hoffe mir kann jemand helfen oder eine Alternative zeigen.
Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Di 22.01.2013 um 16:26
Moderiert von Narses: Bild als Anhang hochgeladen.