URL etc. öffnen

[Mintschi]

Hallo,

ich arbeite z.Zt. mit der aktuellen OxygenOffice Version (OO V.2.1) und habe mit Base eine Verbindung zu einer dbase-Adressdatenbank und hierfür ein Eingabeformular erstellt.
Das Formular enthält u.a. die Felder "Email" und "Homepage". Diese Felder würde ich gerne mit einem Button versehen, zum Öffnen des Standard-Emailclienten bzw. Browsers mit Übergabe der Daten aus den entsprechenden Feldern, sofern vorhanden.
Wie kann man das realisieren?
Interessant wäre auch noch, für die Felder "Telefonnummer" eine Verknüpfung zu einem Softphone wie "Phoner" zu erstellen, welches auf Klick die Nummern anwählt.

Gruß,
Mintschi

[Mintschi]

Hm, sieht wohl schlecht aus?!

[pelei]

Hallo,

ich suche auch die Möglichkeit, entweder x-lite oder Phoner "anzustossen".

In Excel 2007 funktionierte das über callto:Tel-Nummer bei x-lite und sip:Tel-Nummer (als Hyperlink) formatieren. In Excel 2010 läuft das nicht mehr.

Gruß

Pelei

[defcut]

Hallo, ich bin neu hier und wollte etwas ähnliches machen.

Hier habe ich ein Forumlar, ich möchte, dass ich durch klicken des Login Buttons eine URL öffnet.
Moderation,4: LINK entfernt


An dem Button hab ich folgendes Makro angebunden:

Code: Alles auswählen

Sub Main

dim ftp_link as string

ftp_link = "ftp://" + GetText("txt_ftp_name") + ":" +GetText("txt_ftp_passwort") + "@" + GetText("txt_ftp_url")

Shell ftp_link

End Sub

Doch leider passiert nichts, hat Jemand eine Idee?

[gogo]

SHELL: Shell(Pathname, Windowstyle, Param)

Nachzulesen: (http://download.oracle.com/docs/cd/E195 ... exterm-147)

also für OperaUser:

Code: Alles auswählen

shell ("C:\Programme\Opera\opera.exe",3,"http://download.oracle.com/docs/cd/E19535-01/819-1326/6n3mloktr/index.html#indexterm-147")

... damit hat man immer den richtigen Einstieg zur Shell-Hilfe

g

[defcut]

so habe für beide prob was gefunden

URL öffnen:

Code: Alles auswählen

sub kunden_url (oEvent)
	dim kunden_link as string
	dim oMainForm as object
	oMainForm = oEvent.Source.getModel().getParent()
    kunden_link = oMainForm.getByName("txt_kunden_url").getCurrentValue()
    oSer = createUNOService("com.sun.star.system.SystemShellExecute")
    oSer.execute(kunden_link,,0)
end sub

FTP verbinden (via Filezilla):

Firefox einrichtung: http://www.gutefrage.net/frage/wie-stel ... ffnet-wird

Makro:

Code: Alles auswählen

sub ftp (oEvent)
	dim ftp_link as string
	dim oMainForm as object
	oMainForm = oEvent.Source.getModel().getParent()
    ftp_link = "ftp://" + oMainForm.getByName("txt_ftp_name").getCurrentValue() + ":" + oMainForm.getByName("txt_ftp_passwort").getCurrentValue() + "@" + oMainForm.getByName("txt_ftp_url").getCurrentValue()
    oSer = createUNOService("com.sun.star.system.SystemShellExecute")
    oSer.execute(ftp_link,,0)
end sub