LIEN INTERNET ET MAIL SANS APIS
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
-
26 juin 2002 à 23:04
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 29 déc. 2006 à 15:57
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 29 déc. 2006 à 15:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3784-lien-internet-et-mail-sans-apis
https://codes-sources.commentcamarche.net/source/3784-lien-internet-et-mail-sans-apis
29 déc. 2006 à 15:57
Cool Soldier8514....C'est ce que je cherchais à faire pour ma source, d'utiliser les softs par défaut..Voilà quelque chose de très intéressant.
A+
Exploreur
26 févr. 2006 à 19:51
Shell "rundll32.exe url.dll,FileProtocolHandler " & "mailto:soldier_8514@hotmail.com"
ça marche aussi pour les liens web :
Shell "rundll32.exe url.dll,FileProtocolHandler " & "http://vbfrance.com"
et ça y est _ on dirait bien que c compatible pour tout le monde puisque ça utilise les navigateurs et softs de messagerie par défaut ;)
25 janv. 2004 à 06:36
1-C pas tout le monde qui a Iexplore dans c:\program file\...
2-Ceux qui ont d'autres navigateurs?
3-ShellExecute est bien MEILLEUR et est inclus dans toute les versions de windows je pense
5/10
20 oct. 2003 à 09:13
26 nov. 2002 à 19:29
*met 5*
27 juin 2002 à 08:54
' API pour la sub qui envoie les mails
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 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
' Créé la chaîne de commande avec les paramètres fournis
If Len(Sujet) Then Temp = "&Subject=" & Sujet
If Len(Contenu) Then Temp = Temp & "&Body=" & Contenu
If Len(CC) Then Temp = Temp & "&CC=" & CC
If Len(CCC) Then Temp = Temp & "&BCC=" & CCC
'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 Sub
26 juin 2002 à 23:04
8/10