SendMail-Button unter BASE - OSX

AOO/LO für MacOS, Solaris ...

Moderator: Moderatoren

gurkenhobel
Beiträge: 4
Registriert: Sa, 09.11.2013 13:49

SendMail-Button unter BASE - OSX

Beitrag von gurkenhobel »

Hallo,
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
und in der (vor)letzten Zeile liegt wohl der Hund begraben: Thunderbird wird mit meinem Pfad nicht gefunden. Original war das Script mit Windowspfad (c: ...)

Hat jemand einen Tip, wie die "Shell"-Zeile zu ändern ist, dass das Script funktioniert?

Oder vielleicht eine alternative Lösung?

Viele Dank
Gurki