Entwickler-Ecke
Dateizugriff - Quickreport als E-Mail verschicken
infomio - Do 14.11.02 14:58
Titel: Quickreport als E-Mail verschicken
Kann man die Quickreport-Vorschau als E-Mail verschicken?
Also als *.txt speichern kann man ihn - kein Thema, der zerreißt jedoch die Formatierungen. Gibts auch andere Möglichkeiten, vielleicht ohne Quickreport ??? :(
DataCool - Fr 15.11.02 00:04
Rein theroretisch mußt Du die Canvas des Reports in ein Bitmap oder sonstiges kopieren und das dann verschicken.
Data
UGrohne - Fr 15.11.02 00:38
Wenn Du Delphi 7 Pro+ hast, dann nimm lieber die RaveReports, da haste alle möglichen Renderer zur Auswahl: PDF,HTML,Text...
Die Komponenten verwende ich gerade, bin positiv überrascht. Und einen Konverter für QuickReports gibts auch kostenlos im Internet *g*
Schläfrigen Gruß, Uwe
infomio - Fr 15.11.02 08:43
Titel: anders gemeint!
wenn ein Kunde eine Rechnung erstllt hat, dann will er automatisch nach dem Druck: Email versenden? - wenn ja, dann ohne Preview im Standart-E-Mail-Programm Anhang beifügen...
Verdammt so was muss es doch schon längst geben.... :x
UGrohne - Fr 15.11.02 09:02
Da musst Du einfach die Datei erzeugen und eine Mail erstellen lassen mit Anhang.
Entweder Du führst den mailto:..... Befehle aus, da gibts auch so nen parameter attachment glaub ich, oder Du bastelst Dir Deine eigene Lösung. Da is glaub ich n recht guter Artikel dazu im aktuellen Entwickler... mit verschiedenen Lösungsansätzen.
Wieder frischere Grüße *g*
Pigna - Fr 15.11.02 14:31
Nimm die Komponente NMSMTP aus Fastnet
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
// Verschicken per E-Mail
try
if NMSMTP1.Connected then NMSMTP1.Disconnect;
ListBox1.Clear;
Memo1.Clear;
Memo1.Lines := DBMemo1.Lines;
Memo1.Lines.Add(' ');
Memo1.Lines.Add('Freischaltcode lautet: 4711');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('Name der Rechnung lautet: ' + 'R4711.pdf');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('Mit freudlichen Grüssen ');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('trillium production ');
NMSMTP1.PostMessage.FromAddress := 'pigna@trillium-production.de';
NMSMTP1.PostMessage.Subject := 'Registrierung: Herbert Wichtig '; NMSMTP1.PostMessage.ToAddress.add(A@Emfaenger.de); NMSMTP1.PostMessage.Attachments.AddStrings ('C:\Rechnungen\R4711.pdf');
NMSMTP1.UserID := 'Pigna';
NMSMTP1.PostMessage.Body.Assign(Memo1.Lines);
NMSMTP1.Host := 'smpt.AAA.com';
NMSMTP1.Connect;
NMSMTP1.SendMail;
except
showmessage('Es ist ein Fehler aufgetreten!');
end;
end; |
Gruss Pigna :think:
(17.11.02 17:30 Tino) Code-Tags hinzugefügt.
infomio - Fr 15.11.02 14:52
Danke Pigna,
aber das kenn ich auch scho, nur die Rechnung als *.PDF oder sonstiges Format hab ich halt vorerst nicht !
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!