E-Mail Versand Macro
Verfasst: So 10. Apr 2022, 11:23
Hallo zusammen,
bin ein erfolgloser Anfänger, habt Geduld mit mir
. Ich möchte ein Tabellenblatt, per Schaltfläche / Macro, als Email versenden.
Habe hierzu ein Macro im Netz gefunden, leider funktioniert es nicht ganz wie gewünscht.
Es funktioniert: Klick auf die Schaltfläche, das PDF Export Fenster öffnet sich. Ich bestätige mit senden. Das Email Programm (Thunderbird) öffnet eine neue Email. Das PDF ist angehängt, mit dem Namen der ODF Datei. Im Betreff steht ebenfalls der Name der ODF Datei. So weit so gut.
Was nicht funktioniert: Ich habe zwei Emailadressen in Thunderbird hinterlegt. Es wird die Falsche Sende Mailadresse verwendet. Ich würde gerne die korrekte Adresse in einer Zelle hinterlegen, steht in F53.
Es wird keine Empfänger Adresse eingetragen. Diese Adresse steht in I19
Zudem möchte ich einen Mailtext einer Zelle hinterlegen und diesen Text automatisch in die Mail übernehmen, wenn sowas überhaupt möglich ist.
Leider bricht das Macro mit einer Fehlermeldung ab:
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.container.NoSuchElementException
Message: .
Freue mich über jede Hilfe, vielen lieben Dank.
Gruß
Peter
REM ***** BASIC *****
sub 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 = "I19" 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() )
oDoc=Thiscomponent
oTab=oDoc.Sheets.getByName("der Tabellenname")
oZelle=oTab.getCellRangeByName("F53")
empfaenger=oZelle.string
End Sub
bin ein erfolgloser Anfänger, habt Geduld mit mir
. Ich möchte ein Tabellenblatt, per Schaltfläche / Macro, als Email versenden. Habe hierzu ein Macro im Netz gefunden, leider funktioniert es nicht ganz wie gewünscht.
Es funktioniert: Klick auf die Schaltfläche, das PDF Export Fenster öffnet sich. Ich bestätige mit senden. Das Email Programm (Thunderbird) öffnet eine neue Email. Das PDF ist angehängt, mit dem Namen der ODF Datei. Im Betreff steht ebenfalls der Name der ODF Datei. So weit so gut.
Was nicht funktioniert: Ich habe zwei Emailadressen in Thunderbird hinterlegt. Es wird die Falsche Sende Mailadresse verwendet. Ich würde gerne die korrekte Adresse in einer Zelle hinterlegen, steht in F53.
Es wird keine Empfänger Adresse eingetragen. Diese Adresse steht in I19
Zudem möchte ich einen Mailtext einer Zelle hinterlegen und diesen Text automatisch in die Mail übernehmen, wenn sowas überhaupt möglich ist.
Leider bricht das Macro mit einer Fehlermeldung ab:
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.container.NoSuchElementException
Message: .
Freue mich über jede Hilfe, vielen lieben Dank.
Gruß
Peter
REM ***** BASIC *****
sub 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 = "I19" 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() )
oDoc=Thiscomponent
oTab=oDoc.Sheets.getByName("der Tabellenname")
oZelle=oTab.getCellRangeByName("F53")
empfaenger=oZelle.string
End Sub
