Seite 1 von 1
Macro: Email versenden mit PDF
Verfasst: Fr 1. Sep 2017, 19:53
von cynep8
Hallo liebe Forumler,
ich würde gerne ein Calc Dokument als PDF in einer Email versenden. Dabei soll Dokumentenname, Mailadresse, Betreff und am besten auch der mail Text aus Zellen im Dokument entnommen werden. Ich habe leider nicht so richtig passendes zum Thema im netz gefunden. sollte das ganze Ohne Makro gehen wäre das toll. Ich kenne mich nur sehr beschränkt (also fast garnicht) mit Makro aus und bräuchte in jedem Fall eure Hilfe.
Ich hoffe Ihr könnt mir weiterhelfen.
Vielen Dank schon mal im voraus!
Re: Macro: Email versenden mit PDF
Verfasst: Mi 11. Okt 2017, 17:06
von cynep8
Noch einmal Hallo,
ich habe mittlerweile im Netz diesen Macro Schnipsel gefunden.
Er scheint so weit so gut, zu funktionieren. Ich habe verschiedene Sachen probiert um den wert der Mailadresse (strRecipient) aus einer bestimmten Zelle auszulesen. Leider habe ich immer den Syntaxfehler "Objekt Variable nicht gefunden" bekommen.
Es wäre toll wenn mir jemand helfen könnte. Würde gerne auch noch die Betreffzeile und den Body aus einer Zelle lesen.
Vielen Dank schon mal im voraus für eure Hilfe!
Code: Alles auswählen
Sub Send_As_PDF( Optional strRecipient As String )
REM Send ( a selection inside ) the current document as a PDF attachment to your E-mail.
REM Opens the PDF Export Options dialog.
REM Example Call: Send_As_PDF( "myemail@mydomain.com" )
REM Can be called without argument, then the ? Default Recipient ? will be used.
If IsMissing( strRecipient ) Then strRecipient = "myemail@mydomain.com" REM Default Recipient.
Dim oFrame As Object, oDispatch As Object
Dim aProps(0) As New com.sun.star.beans.PropertyValue
aProps(0).Name = "Recipient"
aProps(0).Value = strRecipient
oFrame = ThisComponent.CurrentController.Frame
oDispatch = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatch.executeDispatch( oFrame, ".uno:SendMailDocAsPDF", "", 0, aProps() )
End Sub
Re: Macro: Email versenden mit PDF
Verfasst: Sa 14. Okt 2017, 17:52
von mikele
Hallo,
um die Mailadresse aus einer bestimmten Zelle (z. B. A1) auszulesen:
oDoc=Thiscomponent
oTab=oDoc.Sheets.getByName("der Tabellenname")
oZelle=oTab.getCellRangeByName("A1")
empfaenger=oZelle.string
Re: Macro: Email versenden mit PDF
Verfasst: Sa 14. Okt 2017, 21:13
von cynep8
Vielen Dank für deine schnelle Antwort!
Werde es gleich ausprobieren.