Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index


Hallo Reinhard, und alle die es noch interessiert.

Nach langem Ausprobieren bin ich zu dem Schluss gekommen,
dass die beste Methode, um eine Mail(mit Anhang) per Makro zu versenden ,
ein Kommandozeilen- basierter E-mail-Client ist.
Zwei solcher E-mail-Clienten habe ich ausprobiert, und kann beide sehr empfehlen.
sie brauchen beide keine Installation, und sind recht handlich.

1. blat http://www.blat.net <http://www.blat.net/>
-Nur für Windows:
+ keine Installation notwendig
+ Open Source
+ in c++ geschrieben und sehr klein(120 Kb)
+ sehr viele nützliche Einstellungen und Optionen
+smtp
+pop3
+nntp
+imap
+ sehr gute Dokumentation (Englisch)

2. sendEmail http://caspian.dotconf.net/menu/Software/SendEmail/
+Windows und Linux
+in den meisten Linux Distributionen über die Paketquellen erhältlich, Läuft aber auch ohne Installation
+ Open Source
- in perl geschrieben und verhältnismäßig groß(1,5MB)(mehr als 10 mal so groß wie blat) +/- Weniger Optionen als blat (für Anfänger leichter, dafür weniger möglichkeiten für Fortgeschrittene)
+smtp
-kein pop3 ,nntp und  imap
+ sehr gute Dokumentation (Englisch)

Im Beispielcode (Siehe unten) Exportiere ich eine Mail,
 mit je 2 Anhänge: Das aktuelle Writer-Dokument und das Dokument als PDF.
Getestet habe ich mit web.de und gmx.net (googlemail.com bekomme ich nicht hin) die Mail-Adresse, Passwörter und Pfade müssen natürlich noch angepasst werden.

Gruß Frieder

Beispielcode um "blat" zu benutzen: nur Windows
'===============================================================
Sub eMail_blat
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
Doc=ThisComponent
  sUrl = ThisComponent.getURL()
  Path = DirectoryNameoutofPath(sUrl, "/")
  Pfad1 = ConvertFromUrl(Path)
  sDir = Pfad1 & GetPathSeparator & "Test1.pdf"
  sDir1 = converttourl(sDir)
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ExportFormFields" 'just show the contents of the Form.Fields
  args1(0).Value= True
  args1(1).Name = "Printing" ' you don't need that.
  args1(1).Value= 0
dim args2(1) as new com.sun.star.beans.PropertyValue
  args2(0).Name = "FilterName"
  args2(0).Value = "writer_pdf_Export"
  args2(1).Name = "FilterData"
  args2(1).Value = args1
 ' args2(2).Name="OutputStream"
 'args2(2).Value=oOutputStream
  ThisComponent.storeToURL(sDir1,args2())
Shell("C:\Users\Username\Pfad_zu\blat276\full\blat.exe" & _
" - -to Empfaenger@googlemail.com" & _
" -s ""Subject""" & _
" -body ""Hallo wie gehts?" & Chr(10) & "Text hier...""" & _
" -attach " & sDir & "," & ConvertFromUrl(sUrl) &  _
" -server smtp.web.de" & _
" -f you@web.de" & _
" -from you@googlemail.com" & _
" -u you@web.de -pw XXXXXX")
End Sub
'==================================================
'Und hier Beispielcode um "Sendmail" zu benutzen: Linux und Windows
Sub mail_SendEmail
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
Doc=ThisComponent
  sUrl = ThisComponent.getURL()
  Path = DirectoryNameoutofPath(sUrl, "/")
  Pfad1 = ConvertFromUrl(Path)
  sDir = Pfad1 & GetPathSeparator & "Test1.pdf"
  sDir1 = converttourl(sDir)
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ExportFormFields" 'just show the contents of the Form.Fields
  args1(0).Value= True
  args1(1).Name = "Printing" ' you don't need that.
  args1(1).Value= 0
dim args2(1) as new com.sun.star.beans.PropertyValue
  args2(0).Name = "FilterName"
  args2(0).Value = "writer_pdf_Export"
  args2(1).Name = "FilterData"
  args2(1).Value = args1
 ' args2(2).Name="OutputStream"
 'args2(2).Value=oOutputStream
  ThisComponent.storeToURL(sDir1,args2())
'unter Windows muss der Pfad angepasst weden
Shell("sendEmail" & _
" -f you@web.de" & _
" -t empfaenger@gmx.de" &_
" -o reply-to= you@googlemail.com" &_
" -u ""Subject"" " & _
" -m ""Hallo wie gehts?" & Chr(10) & "sendEmail Text""" &_
" -a " & sDir &" -a " & ConvertFromUrl(sUrl) & _
" -s smtp.web.de" & _
" -xu you@web.de -xp XXXXXXXXX"
end sub

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.