Adress-DB mit URL und eMail-Button?

[simsus]

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:
http://www.marcelsinemus.de/adressbuch.odb

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

[simsus]

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