Lien vers une url ou vers une addresse e-mail avec vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 119 fois - Téléchargée 47 fois

Contenu du snippet

Voila un code tres simple, mais j'ai vu que pas mal de monde le chercher alors voila :)

Source / Exemple :


'pour envoier un mail, ca va ouvrir Outlook biensure ;)
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE mailto:moi@wanadoo.fr", vbHide
 'pour les url
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.URL.com", vbHide

A voir également

Ajouter un commentaire Commentaires
hassandraga Messages postés 1 Date d'inscription mercredi 16 juin 2004 Statut Membre Dernière intervention 23 juin 2004
23 juin 2004 à 02:40
UNE QUESTION SVP REPENDRE !
comment crée un exe exécuter san vb6.dll sur vb
cs_Kirua Messages postés 3006 Date d'inscription dimanche 14 avril 2002 Statut Membre Dernière intervention 31 décembre 2008
8 déc. 2002 à 14:35
alors moi je dis vive le C++ les gars :)
une seule fonction:

ShellExecute(NULL, NULL, programme, paramètres, NULL, affichage);

les NULL c'est ceux que je n'utilise pas parce que j'en ai aps besoin, sinon le reste est clair.
avec le paramètre d'affichage on peut choisir si ça apparait ou pas, si c'est en minimisé, maximisé....... :) les paramètres de lancements sont pratiques!
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
2 sept. 2002 à 19:44
Pour compléter le message de logisim :
Ce code permet d'entrer le destinataire, l'adresse de copie, l'adresse de copie cachée, le sujet et le contenu du mail :

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

Private Const SW_SHOWNORMAL = 1

Private Sub EnvoiMail(Optional Adresse As String, _
Optional Sujet As String, _
Optional Contenu As String, _
Optional CC As String, _
Optional CCC As String)

Dim Temp As String, r As Integer

' Créé la chaîne de commande avec les paramètres fournis
If Len(Sujet) Then Temp = "&Subject=" & Sujet
If Len(CC) Then Temp = Temp & "&CC=" & CC
If Len(CCC) Then Temp = Temp & "&BCC=" & CCC
If Len(Contenu) Then Temp = Temp & "&Body=" & Contenu

'Remplace le premier '&' (s'il existe) par un '?'
If Mid(Temp, 1, 1) "&" Then Mid(Temp, 1, 1) "?"

'Ajoute la commande 'mailto:' et l'adresse
Temp = "mailto:" & Adresse & Temp

'Execute la commande par l'API
Call ShellExecute(Me.hWnd, "open", Temp, _
vbNullString, vbNullString, SW_SHOWNORMAL)
End

End Sub
cs_Clem Messages postés 282 Date d'inscription dimanche 1 avril 2001 Statut Membre Dernière intervention 12 février 2007
2 sept. 2002 à 14:59
Moi je prend l'API, car chez moi, Win XP est installé sur D:, et Win98 sur C:, donc ça peut pas toujours marcher !
cs_Stephman Messages postés 39 Date d'inscription samedi 22 juin 2002 Statut Membre Dernière intervention 8 juin 2003
2 sept. 2002 à 14:54
dsl pour la grosse gosse erreur mais il semblerai que l'on ne puisse mettre le arobase(bon la c pas gainant c'est quand sa arrive sur des formulaire d'inscription et que sa demande l'I-mail, et en champ obliguatoire en plus, alors ba peut pas m'inscrire a ce truc)

tu fait BozoDev(a)Hotmail.com?subject=dsl pour ce mécontentement, et entre autre, cela ne l'envoi pas automatiquement, sa ouvre une fenêtre avec votre client de messagerie par défault
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.