ich habe mir aus dem Forum hier folgendes Script "gemopst":
Code: Alles auswählen
sub SendMail
Dim oDoc, oForm as Object
Dim betr, sMail_Adr as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
sMail_Adr = oForm.getByName("Mailadresse").Text
if sMail_Adr = "" then
msgbox "Keine Mailadresse vorhanden!" & CHR(13) & "Der Vorgang wird abgebrochen!" , 48, "Mail senden"
Exit Sub
end if
'attN = "C:\Ordner\" & "Test.pdf" 'Anhang beifügen
attA = ConvertToURL (attN)
Empf = (sMail_Adr)
betr= "Testmail" 'Betreffzeile
anrT= "Sehr geehrte Damen und Herren"
shell("/Applications/Thunderbird.app",1,"-compose to=" + empf +",attachment=" + attA + ",subject=" + betr + ",body=" + anrT)
End Sub
Hat jemand einen Tip, wie die "Shell"-Zeile zu ändern ist, dass das Script funktioniert?
Oder vielleicht eine alternative Lösung?
Viele Dank
Gurki