Access Hilfe

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/access_hilfe_166015/page_1 - zur Vollversion wechseln!

TOM schrieb am 20.07.2006 um 16:28

Sers Leute... ich bräuchte in der Ferialhocken eine kleine Hilfestellung bezüglich MS Access

1: E-Mail per Knopfdruck verschicken

Wie? Ich hab irgendwas mitbekommen, dass das über "MAPI" funktionieren sollte, aber ich komme nicht weiter. Ich will einfach nur einen Button haben wo man draufklickt und er holt sich von einer Tabelle die Adresse und öffnet ein Outlook-Mail (VBA Code schätze ich mal)

2: Website per Knopfdruck öffnen

Wie? Ziemlich das Selbe wie oben, nur eben mit einer Website... angeblich müsste es mit einfachem Ausführ-Makro funktionieren und hinter die IEXPLORER.exe irgendwelche parameter schreiben, damit er die URL aus der Tabelle frisst

tia

TOM

dio schrieb am 20.07.2006 um 20:12

zu 2.:
Ich hab mit Access nicht viel am Hut, vielleicht hilft es dir trotzdem:
dem IE kannst du ganz einfach die zu öffnende Website als Parameter übergeben:

Code:

iexplore [url]http://www.overclockers.at[/url]

TOM schrieb am 20.07.2006 um 21:11

i know, aber wie is der syntax damit er die url aus der tabelle frisst?

es ist keine fixe adresse, sie ändert sich andauernd und die aktuelle die gerade angezeigt wird, soll per knopfdruck geöffnet werden

dio schrieb am 21.07.2006 um 04:05

die Adresse in ein Feld schreiben und dann auf jenes zugreifen geht sicher.

EndOfDayz schrieb am 21.07.2006 um 04:19

Vielleicht hilft dir dieser Thread aus einem Office-Forum:

KLICK MICH

TOM schrieb am 21.07.2006 um 08:11

thx... das mit dem Mail funktioniert einwandfrei

jetzt brauch ich nur mehr was für den browser-start :]

edit: in dem forum gerade die lösung gefunden :]

Wen's interessiert:

Code:

Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    Call IE.Navigate(Me.Website) 'Me.Feldname enthält die URL

man sollte nur drauf achten, dass das feld auch eine website enthält.... wenn es leer ist zickt er :]

thx

Neo1010 schrieb am 21.07.2006 um 08:19

vielleicht funkt das:

Code:

Dim pfad as String
pfad="C:\Windows\...." 'der ie pfad
Shell(pfad & " [url]www.overclockers.at[/url]")

EndOfDayz schrieb am 21.07.2006 um 11:57

Naja du kannst ja noch abfangen ob das Feld leer ist (weiß nicht ob du mit leer einen Leerstring oder wirklich "nix" meinst)

Code:

Dim IE As Object

If IsNull(Me.Website) = False And Me.Website <> "" Then
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    Call IE.Navigate(Me.Website) 'Me.Feldname enthält die URL
End If