SendMail-Button unter BASE - OSX

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: SendMail-Button unter BASE - OSX

SendMail-Button unter BASE - OSX

von gurkenhobel » Di, 01.04.2014 15:01

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

Nach oben