Re: [de-users] Serienbrief - Dynamischer Betreff

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 users+help@de.libreoffice.org
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