[Tk] Emailvorlage öffnen (gelöst) (Graphische Oberflächen)

[thread]17244[/thread]

[Tk] Emailvorlage öffnen [gelöst]

Tags: perl5 GUI windows Tk Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+4 replies
Kean

2012-03-16 10:34

User since
2004-08-18
463 Artikel
BenutzerIn

Gibt es eine Möglichkeit mit Perl unter Windows mit dem Standart-Emailprogramm eine neue Email mit einer Textvorlage zu öffnen? Und idealerweise noch eine Datei mit anzuhängen?

Ich möchte also keine empfangenen Emails öffnen sondern ein neues Emailfenster mit einem Betreff und Text zum versenden öffnen.

Bisher habe ich nur das Modul Mail::Outlook gefunden mit dem man Outlook direkt anspricht. Eine Lösung die Emailclient unabhängig funktioniert wäre etwas schöner.
- bianca
  
  2012-03-16 10:54
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Das hört sich so an als wäre dafür eine Art Macro sinnvoll. Dafür gibt es extra Software, kannste mal nach "windows automatisierung" googeln oder mit Bordmitteln wie z.B. dem Windows Scriptinghost http://www.chip.de/artikel/Windows-automatisieren_...
  
  Perl ist dafür m.E. nicht geeignet.
  
  Zusatz: So ein WSH Script kannste natürlich mit Perl über system() starten, dann sieht es am Ende aus als hätte Perl alles gemacht.
  Last edited: 2012-03-16 11:05:39 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- FIFO
  
  2012-03-16 13:32
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  2012-03-16T09:34:47 Kean
  Ich möchte also keine empfangenen Emails öffnen sondern ein neues Emailfenster mit einem Betreff und Text zum versenden öffnen.
  
  Wenn ein Standard-Mailclient für das mailto: Protokoll registriert ist, hilft Dir Win32::API:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  use warnings; use strict; use Win32::API; my $ShellExecute = new Win32::API( 'shell32', 'ShellExecuteA', [ qw( N P P P P I ) ], 'N' ); my $recipient = 'foo@example.com'; my $subject = 'Hello World'; my $body = '... funktioniert :)'; $ShellExecute->Call( 0, 'open', 'mailto:' . $recipient . '?subject=' . $subject . '&body=' . $body, 0, 0, 1 );
  
  Gruß FIFO
  
  Nachtrag: Attachments gehen so allerdings nicht.
  
  Editiert von FIFO: typo
  
  Editiert von FIFO: Nachtrag
  Last edited: 2012-03-16 13:38:24 +0100 (CET)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- Kean
  
  2012-03-16 14:44
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  Da mailto leider sehr begrenzte Möglichkeiten hat (mir fehlt z.b. noch die Möglichkeit Formatierungen mitzugeben) habe ich das ganze jetzt doch über Outlook gelöst. Allerdings nicht über Mail::Outlook sondern direkt über Win32::OLE.
  
  Hier die Umsetzung falls jemand eine ähnliche Aufgabe zu lösen hat:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use Win32::OLE; use Win32::OLE::Const 'Microsoft Outlook'; my $outlook = new Win32::OLE('Outlook.Application') or die "Could not open Outlook Application!\n"; my $msg = $outlook -> CreateItem(0); unless ($msg){ die "Outlook is not running, cannot send mail.\n"; } $msg->{'To'} = 'test@domain.de'; $msg->{'Subject'} = 'Betreff'; $msg->{'BodyFormat'} = 'olFormatHTML'; $msg->{'HTMLBody'} = 'Dies ist ein <b>Test</b>'; my $attach = $msg->{'Attachments'}; $attach->add('c:\anhang.txt'); $msg->Display();

View all threads created 2012-03-16 10:34.