Utz Wolfgang schrieb:
Ich habe folgendes Problem, auf das mir noch niemand Antwort geben
konnte - Ich habe eine Base Datenbank und arbeite im Formular
- Wenn ich EMail Adressen oder WebAdressen aufrufen möchte und ich die
Adresse anklicke, geht der Browser, bzw das Emailprogramm nicht auf.
Ist recht unangenehm weil ich jetzt die Adresse kopieren und in das
Browserfenster einfügen muss.
Für eine Lösung wäre ich sehr dankbar. -
Außerdem helfen uns Angaben zu Betriebssytem und genauerer
OpenOffice.org Version. Wenn diese Fragen beatwortet werden, ist
eventuelle eine konkretere Hilfestellung möglich.
Vista - OpenOffice 3.1.0 - Firefox - Thunderbird
Da haben wir es doch... ich wusste doch das das schon mal auf dem Plan
stand...
Das Formular in der Datenbank editieren...
Dann dem Feld mit der email Adresse ein Ereignis zu weisen (ich nehme
"Maustaste gedrückt")
Das Ereignis ist ein Makro :
Dieses hier:
-----------------------------------------------
Sub SendMail
' dieses Makro wird mit dem Textfeld eines Formulares verknüpft
' ich verwende die Funktion bei Mausklick
' sollte sich in dem Textfeld ein Text befinde, dann wird das
emailprogramm mit diesem Text als
' Empfängeradresse geöffnet.
Dim oform as Object
Dim Adr as String
' zugriff auf den ersten Dialog (Index(0))
oform = thisComponent.drawpage.forms.getByIndex(0)
' zugriff auf das Eingabefeld txteMail - Wert auslesen und in
Variable speichern
Adr = oform.getByName("txteMail").Text
'ist eine adresse gespeichert?
'hier könnte eine Abfrage stehen, ob der Text in dem Feld z.b. ein
@-Zeichen enthält!
if Adr = "" then
Exit Sub
end if
' den String adr in ein Variant-String umwandeln
emailempf=(adr)
' Aufruf des Email Programmes - hier Thunderbird
' diese Zeile ist anzupassen!
shell("D:\Programme\Mozilla Thunderbird\thunderbird.exe",1,"-compose
to=" + emailempf )
End Sub
-----------------------------------------------
(Das Datenfeld muß angepasst werden - meins heisst txtemail)
Dann alles abspeichern und fertig.
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
