Moin!
In einem anderen Forum bin ich fündig geworden.
Hier die Lösungsansätze:
für Thunderbird:
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("txteMail 1").Text
if sMail_Adr = "" then
msgbox "Keine Mailadresse vorhanden!" & CHR(13) & "Der Vorgang wird abgebrochen!" , 48, "Mail senden"
Exit Sub
end if
attA = ConvertToURL (attN)
Empf = (sMail_Adr)
betr= "Testmail" 'Betreffzeile
anrT= "Sehr geehrte Damen und Herren"
shell("C:\Programme\Mozilla Thunderbird\thunderbird.exe",1,"-compose to=" + empf +",attachment=" + attA + ",subject=" + betr + ",body=" + anrT)
End Sub
Mit Betreff-Eingabeaufforderung:
Global sMail_Adr as String
Sub SendMail
Dim oDoc, oForm as Object
Dim betr as String
Dim cancel As Boolean
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
sMail_Adr = oForm.getByName("txteMail 1").Text
if sMail_Adr = "" then
msgbox "Keine Mailadresse vorhanden!" & CHR(13) & "Der Vorgang wird abgebrochen!" , 48, "Mail senden"
Exit Sub
end if
wiederholen:
betr = inputbox("Bitte Betreff eingeben:", "Mail senden")
If betr = "" Then
sVar = MsgBox("Es wurde kein Betreff eingegeben!",1, "Mail senden")
If sVar = 2 Then
Exit Sub
else
Goto wiederholen
end if
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("C:\Programme\Mozilla Thunderbird\thunderbird.exe",1,"-compose to=" + empf +",attachment=" + attA + ",subject=" + betr + ",body=" + anrT)
End Sub
für Firefox bzw. Internet Explorer:
Sub URL_Browse
Dim oDoc, oForm as Object
Dim sURL_Adr as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
sURL_Adr = oForm.getByName("txtURL 1").Text
if sURL_Adr = "" Then
msgbox "Keine URL vorhanden!" & CHR(13) & "Der Vorgang wird abgebrochen!" , 48, "Browse URL"
Exit Sub
end if
shell("C:\Programme\Internet Explorer\iexplore.exe", 10, sURL_Adr) ' Start IExplorer
'shell("C:\Programme\Mozilla Firefox\firefox.exe", 10, sURL_Adr) 'Start Firefox
End sub
für den Standardbrowser:
Sub URL_Browse
Dim oDoc, oForm as Object
Dim sURL_Adr as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
sURL_Adr = oForm.getByName("txtURL 1").Text
if sURL_Adr = "" Then
msgbox "Keine URL vorhanden!" & CHR(13) & "Der Vorgang wird abgebrochen!" , 48, "Browse URL"
Exit Sub
end if
Shell( "cmd.exe /cStart " & sURL_Adr )
End Sub
Quelle:
http://www.openoffice-forum.de/viewtopic.php?f=9&t=362
Lieben Gruss
Marcel