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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 846 fois - Téléchargée 45 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
-
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
-
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
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
60 -
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
-
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
-
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

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.