468,301 Members | 1,511 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 468,301 developers. It's quick & easy.

shellExecuteAny and mailto

hallo, ik heb volgende code in een database applicatie.
Expand|Select|Wrap|Line Numbers
  1. Private Sub txtMail_DblClick()
  2.     ShellExecuteAny hwnd, "open", "mailto:" & txtMail.Text, vbNullString, vbNullString, 5
  3. 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
Nov 22 '06 #1
1 1692
albertw
267 100+
hallo, ik heb volgende code in een database applicatie.
Expand|Select|Wrap|Line Numbers
  1. Private Sub txtMail_DblClick()
  2.     ShellExecuteAny hwnd, "open", "mailto:" & txtMail.Text, vbNullString, vbNullString, 5
  3. 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:

Expand|Select|Wrap|Line Numbers
  1. Public Sub SendeMail()
  2.  
  3. Dim Success As Long
  4. Success = ShellExecute(0&, vbNullString, "mailto:" & EMAIL, vbNullString, "C:\", 1)
  5. End Sub
  6.  
  7.  
EMAIL staat voor het volledige email adres

next time in English please
Nov 22 '06 #2

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

15 posts views Thread by nAmYzArC | last post: by
12 posts views Thread by ElvisIsDead | last post: by
15 posts views Thread by Val | last post: by
10 posts views Thread by Adam Smith | last post: by
15 posts views Thread by tshad | last post: by
3 posts views Thread by Brian | last post: by
2 posts views Thread by =?Utf-8?B?UGV0ZXI=?= | last post: by
reply views Thread by NPC403 | last post: by
reply views Thread by Teichintx | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.