vanuit listbox d.m.v email adress outlook openen

[goof010]

Goeiemiddag allemaal,

Ik heb een vraag. Ik ben bezig met een kleine applicatie in VBA die vanuit excel tabellen gegevens ophaalt en deze plaatst in een listbox.
Nu lukt het me om bijvoorbeeld webadressen te laden in m'n listbox en met een click een nieuw venster te openen met de betreffende website (hyperlink).

Nu heb ik ook persoonsgegevens \zoals email adressen. ik wil als ik op een email adress klik het outlook venster opent met "nieuw bericht" en het email adres ingevuld staat.

is dit mogelijk? heeft iemand misschien al een stukje code wat ik eenvoudig er tussen kan plakken.Ik heb al lopen zoeken maar kon het niet vinden. Mijn excuses als het toch al in dit forum stond. en met die site van "RON" kom ik er niet uit.
ik zoek iets zoals het openen van een website

Private Sub ListBox3_Click()
Dim navURL

navURL = ListBox3.Value
ActiveWorkbook.FollowHyperlink Address:=navURL, NewWindow:=True
End Sub

Alvast bedankt!
Met vriendelijke groeten Goof

 

[snb]

Private Sub ListBox3_DBlClick()
    Hyperlinks.Add [Blad1!C4], "mailto:" & listbox3.value, , , listbox3.value
    [Blad1!C4].Hyperlinks(1).Follow
End Sub

 

[goof010]

dank je wel voor de snelle reactie!!!
ik heb het gelijk geknipt en geplakt.
begrijp 1 ding niet.

Private Sub ListBox4_Click()

Hyperlinks.Add [Blad1!C4], "mailto:" & ListBox4.Value, , , ListBox4.Value
[Blad1!C4].Hyperlinks(1).Follow


End Sub

dus als ik het begrijp:
add hyperlink met data( email adress of outlook?) van sheet 1 cell c4.
Functie mailto listbox string.
dan weer data blad1 cell c4 gevolgd door functie aanroep.

waarom roep je twee keer het email adres aan? [blad1!C4] en de data uitlistbox4 of moet ik bij Blad1!C4 iets definieren?

als ik hem run krijg ik een runtime error 424 "object required"


Sorry voor deze beginner vraag....

 

[snb]

Er staat niet anders dan :zet in een of andere cel een hyperlink en aktiveer vervolgens die hyperlink. Het is een speciale hyperlink, nl. een email adres.
[Blad1!C4] is cel c4 in het werkblad met de naam Blad1.
Als je geen werkblad hebt met die naam krijg je een fourmeling (maar dat wist je al).
Vervang Blad1! door de naam van een werkblad dat wél voorkomt in jouw bestand.

 

[goof010]

Dank je welvoor de informatie! en de uitleg.
Heb het nu voor elkaar.

 

[Warme bakkertje]

Fijn, wil je dan de vraag nog even op opgelost zetten.
(Rechtsonder de pagina)

Mvg

Rudi