Hallo,
Am 07.07.2011 11:55, schrieb Christof Spies:
> Hallo zusammen,
> ist es möglich Emails mit einem dynamischen Betreff aus dem
> Serienbrief-Assistenten zu verschicken?
> Wenn ja, wie sieht dann der Betref aus?
>
> Ich dachte dabei an sowas: "Ihre Bestellung mit der Nummer $nummer"
Ich mache so etwas per Makro:
Sub ConvertToPdfAndSendMail()
Dim sURL as String,oPfad as Object
Dim oMailer as Object,oMailClient as Object,oMessage as Object
Dim vAttachement(0)
oPfad = CreateUnoService("com.sun.star.util.PathSettings")
' sURL=ConvertToURL(sStandardPfad & "/mail/" & sDocumentID & ".pdf")
sURL=ConvertToURL(oPfad.temp)&"/"& sDocumentID & ".pdf"
oDoc.storeToURL(sURL,Array(MakePropertyValue("FilterName","writer_pdf_Export")))
vAttachement(0) = sURL
if GetGUIType = 1 then
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
elseif GetGUIType = 4 then
oMailer = createUnoService(
"com.sun.star.system.SimpleCommandMail" )
End if
oMailClient = oMailer.querySimpleMailClient()
oMessage = oMailClient.createSimpleMailMessage()
oMessage.setRecipient(sEMail_Empfaenger)
oMessage.setSubject(sDocument_Name)
oMessage.setAttachement(vAttachement())
oMailClient.sendSimpleMailMessage( oMessage, 0 )
' kill(sURL)
End Sub
"oMessage.setSubject(sDocument_Name)" wäre dann die relevante Stelle.
--
Mit freundlichen Grüßen
Heiko Fischer
--
Informationen zum Abmelden: E-Mail an [email protected]
Tips 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
