OpenOffice.info

Moin!

In einem anderen Forum bin ich fündig geworden.
Hier die Lösungsansätze:

für Thunderbird:
[quote]
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
[/quote]

Mit Betreff-Eingabeaufforderung:
[quote]
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
[/quote]

für Firefox bzw. Internet Explorer:
[quote]
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
[/quote]

für den Standardbrowser:
[quote]
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
[/quote]

Quelle: [url=http://www.openoffice-forum.de/viewtopic.php?f=9&t=362]http://www.openoffice-forum.de/viewtopic.php?f=9&t=362[/url]

Lieben Gruss

Marcel

Moin!

Ich habe mich die letzten beiden Tage etwas mit der OOo Base auseinander gesetzt und eine Adressdatenbank für meine privaten Zwecke erstellt.
Die betreffende Datei findet ihr hier:
[url]http://www.marcelsinemus.de/adressbuch.odb[/url]

Nun hab ich mich gefragt, ob es möglich ist, die Werte in den einzelnen Felder mit den entsprechenden Programmen zu verknüpfen, d.h. eMail-Programm oder Browser öffnen.

Wie sind da die Möglichkeiten?

Marcel