vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest poniedziałek, 13 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Hyperlink do adresu pocztowego na Userformie


otwartyotwarty rozpoczął: aj postów: 6



napisał: pil
postów: 154


umieszczony:
1 lipca 2005
09:54

  
:D
Jeszcze raz bardzo dziękuję.
napisał: aj
postów: 28


umieszczony:
30 czerwca 2005
23:09

  
Oto znalezione przeze mnie rozwiązanie:

Niech będzie jak w Twoim przykładzie: na formularzu mamy kontolkę typu Label o nazwie oAdres i o treści będącej adresem internetowym.
Piszemy taka procedurę:

Kod VBA:
Private Sub oAdres_Click()
On Error Resume Next
X = ShellExecute(hwnd, "Open" _
, "mailto:adres@costam.pl, &O0, &O0, 2)
End Sub



Przy czym na samym początku kodu formularza wpisujemy dodatkowo:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



w jednej linijce lub odpowiednio z łącznikiem _

aj
napisał: admin
postów: 613


umieszczony:
30 czerwca 2005
22:11

  
Ja mam bardzo nieładne rozwiązanie, bo używające IE, a nie domyślnej przeglądarki internetowej systemu.

Oto i one:

Na formularzu mamy kontolkę typu Label o nazwie oAdres i o treści będącej adresem internetowym.
Piszemy na niej procedurę zdarzeniową:

Private Sub oAdres_Click()
Dim WebBrowser
Set WebBrowser = CreateObject("InternetExplorer.Application")
WebBrowser.Navigate oAdres.Caption
End Sub



I już.

PS.
Ale to bardzo nieładne rozwiązanie.
napisał: pil
postów: 154


umieszczony:
29 czerwca 2005
08:51

  
:o - możesz podać ?
Z góry wielkie dzięki
pil
napisał: aj
postów: 28


umieszczony:
28 czerwca 2005
14:10

  
Dzięki już znam odpowiedź
aj
napisał: aj
postów: 28


umieszczony:
23 czerwca 2005
13:23

  
Czy ktoś wie w jaki sposób stworzyć na Userformie linka do adresu pocztowego. Tak żeby po kliknięciu na niego otwierał mi się Outlook z adresem docelowym?


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z