shellExecuteAny and mailto

[djemmers]

hallo, ik heb volgende code in een database applicatie.

Private Sub txtMail_DblClick()
    ShellExecuteAny hwnd, "open", "mailto:" & txtMail.Text, vbNullString, vbNullString, 5
End Sub

en nu moet ik daar hier en daar wat aanpassen.
bovenstaande code zou een reeks emailadres;emailadres;emailadres;...
naar het klembord kopiëren.
nu zou ik willen dat er telkens een , tussenkomt in plaats van een ;
spijtig genoeg snap ik niets van die hwnd (en vind ik daar moeilijk iets over)

enige tips ?

bedankt alvast

[albertw]

hallo, ik heb volgende code in een database applicatie.

Private Sub txtMail_DblClick()
    ShellExecuteAny hwnd, "open", "mailto:" & txtMail.Text, vbNullString, vbNullString, 5
End Sub

en nu moet ik daar hier en daar wat aanpassen.
bovenstaande code zou een reeks emailadres;emailadres;emailadres;...
naar het klembord kopiëren.
nu zou ik willen dat er telkens een , tussenkomt in plaats van een ;
spijtig genoeg snap ik niets van die hwnd (en vind ik daar moeilijk iets over)

enige tips ?

bedankt alvast

hallo

deze site is normaal in het engels, dus je hebt mazzel dat hier ook een aantal nederlanders zitten te 'chatten'

code is nagenoeg compleet:

Public Sub SendeMail()
 
Dim Success As Long
Success = ShellExecute(0&, vbNullString, "mailto:" & EMAIL, vbNullString, "C:\", 1)
End Sub
 
 

EMAIL staat voor het volledige email adres

next time in English please