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
'
Sub m_internet_Click()
Dim Mail As String
Mail = "montmartre75@noos.fr?subject=titre_du_courrier"
ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
End Sub
----------------------------------------------------------------------------
------------------------
Mais il me manque la commande incluant le fichier, et la commande GO pour
l'envoyer, à moins qu'il y ait une autre méthode ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Tu veux l'envoyer par mail ? (alors MAPI, Automation Outlook, Winsock+SMTP...) Par FTP ? (alors API/Controle INET, Winsock...) Par un post HTTP ?(alors API/Controle INET méthode post, Winsock requet post...)
Nicolas.
"Joseph PUSZTAY" a écrit dans le message de news: #
Envoyer 1 fichier sur le net en VB ???
Bonjour, je cherche à envoyer un fichier sur le Net depuis mon appli VB, envoyer le fichier à une adresse email évidemment, alors j'ai:
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 '
Sub m_internet_Click() Dim Mail As String Mail = "?subject=titre_du_courrier" ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1 End Sub --------------------------------------------------------------------------
--
------------------------
Mais il me manque la commande incluant le fichier, et la commande GO pour l'envoyer, à moins qu'il y ait une autre méthode ???
Merci, au revoir et à bientôt. Joe.
Salut,
Tu veux l'envoyer par mail ? (alors MAPI, Automation Outlook,
Winsock+SMTP...)
Par FTP ? (alors API/Controle INET, Winsock...)
Par un post HTTP ?(alors API/Controle INET méthode post, Winsock requet
post...)
Nicolas.
"Joseph PUSZTAY" <montmartre75@noos.fr> a écrit dans le message de news:
#baVBeLdDHA.1828@TK2MSFTNGP11.phx.gbl...
Envoyer 1 fichier sur le net en VB ???
Bonjour, je cherche à envoyer un fichier sur le Net depuis mon appli VB,
envoyer le fichier à une adresse email évidemment, alors j'ai:
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
'
Sub m_internet_Click()
Dim Mail As String
Mail = "montmartre75@noos.fr?subject=titre_du_courrier"
ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
End Sub
--------------------------------------------------------------------------
--
------------------------
Mais il me manque la commande incluant le fichier, et la commande GO pour
l'envoyer, à moins qu'il y ait une autre méthode ???
Tu veux l'envoyer par mail ? (alors MAPI, Automation Outlook, Winsock+SMTP...) Par FTP ? (alors API/Controle INET, Winsock...) Par un post HTTP ?(alors API/Controle INET méthode post, Winsock requet post...)
Nicolas.
"Joseph PUSZTAY" a écrit dans le message de news: #
Envoyer 1 fichier sur le net en VB ???
Bonjour, je cherche à envoyer un fichier sur le Net depuis mon appli VB, envoyer le fichier à une adresse email évidemment, alors j'ai:
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 '
Sub m_internet_Click() Dim Mail As String Mail = "?subject=titre_du_courrier" ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1 End Sub --------------------------------------------------------------------------
--
------------------------
Mais il me manque la commande incluant le fichier, et la commande GO pour l'envoyer, à moins qu'il y ait une autre méthode ???
Merci, au revoir et à bientôt. Joe.
Joseph PUSZTAY
Ben merci de ta réponse (éclairée), mais pas assez sombre, ce qui m'intéresse c'est la méthode la plus simple au niveau code pour l'envoyer, à une adresse email, mais WinSock j'ai dû y toucher une seul fois, et encore, je ne comprenais pas ce que je faisais, t'aurais pas un bout de code qui marche par hasard ? Sinon, ma méthode par activation d'outlook et d'un email, y aurait une commande pour charger un fichier, et une autre pour envoyer le courrier, y a bien des commandes pour mettre un titre et une adresse ??? A bientôt, merci, bye, Joe. -----------------------------
"ng" a écrit dans le message de news:%
Salut,
Tu veux l'envoyer par mail ? (alors MAPI, Automation Outlook, Winsock+SMTP...) Par FTP ? (alors API/Controle INET, Winsock...) Par un post HTTP ?(alors API/Controle INET méthode post, Winsock requet post...)
Nicolas.
"Joseph PUSZTAY" a écrit dans le message de news: # > Envoyer 1 fichier sur le net en VB ??? > > Bonjour, je cherche à envoyer un fichier sur le Net depuis mon appli VB, > envoyer le fichier à une adresse email évidemment, alors j'ai: >
-------------------------------------------------------------------------- -- > ------------------------ > > 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 > ' > > Sub m_internet_Click() > Dim Mail As String > Mail = "?subject=titre_du_courrier" > ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1 > End Sub
-------------------------------------------------------------------------- -- > ------------------------ > > Mais il me manque la commande incluant le fichier, et la commande GO
pour
> l'envoyer, à moins qu'il y ait une autre méthode ??? > > Merci, au revoir et à bientôt. Joe. > >
Ben merci de ta réponse (éclairée), mais pas assez sombre, ce qui
m'intéresse c'est la méthode la plus simple au niveau code pour l'envoyer, à
une adresse email, mais WinSock j'ai dû y toucher une seul fois, et encore,
je ne comprenais pas ce que je faisais, t'aurais pas un bout de code qui
marche par hasard ?
Sinon, ma méthode par activation d'outlook et d'un email, y aurait une
commande pour charger un fichier, et une autre pour envoyer le courrier, y a
bien des commandes pour mettre un titre et une adresse ???
A bientôt, merci, bye, Joe.
-----------------------------
"ng" <ng@babeuk.net> a écrit dans le message de
news:%23t1G7qLdDHA.1884@TK2MSFTNGP10.phx.gbl...
Salut,
Tu veux l'envoyer par mail ? (alors MAPI, Automation Outlook,
Winsock+SMTP...)
Par FTP ? (alors API/Controle INET, Winsock...)
Par un post HTTP ?(alors API/Controle INET méthode post, Winsock requet
post...)
Nicolas.
"Joseph PUSZTAY" <montmartre75@noos.fr> a écrit dans le message de news:
#baVBeLdDHA.1828@TK2MSFTNGP11.phx.gbl...
> Envoyer 1 fichier sur le net en VB ???
>
> Bonjour, je cherche à envoyer un fichier sur le Net depuis mon appli VB,
> envoyer le fichier à une adresse email évidemment, alors j'ai:
>
--------------------------------------------------------------------------
--
> ------------------------
>
> 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
> '
>
> Sub m_internet_Click()
> Dim Mail As String
> Mail = "montmartre75@noos.fr?subject=titre_du_courrier"
> ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
> End Sub
--------------------------------------------------------------------------
--
> ------------------------
>
> Mais il me manque la commande incluant le fichier, et la commande GO
pour
> l'envoyer, à moins qu'il y ait une autre méthode ???
>
> Merci, au revoir et à bientôt. Joe.
>
>
Ben merci de ta réponse (éclairée), mais pas assez sombre, ce qui m'intéresse c'est la méthode la plus simple au niveau code pour l'envoyer, à une adresse email, mais WinSock j'ai dû y toucher une seul fois, et encore, je ne comprenais pas ce que je faisais, t'aurais pas un bout de code qui marche par hasard ? Sinon, ma méthode par activation d'outlook et d'un email, y aurait une commande pour charger un fichier, et une autre pour envoyer le courrier, y a bien des commandes pour mettre un titre et une adresse ??? A bientôt, merci, bye, Joe. -----------------------------
"ng" a écrit dans le message de news:%
Salut,
Tu veux l'envoyer par mail ? (alors MAPI, Automation Outlook, Winsock+SMTP...) Par FTP ? (alors API/Controle INET, Winsock...) Par un post HTTP ?(alors API/Controle INET méthode post, Winsock requet post...)
Nicolas.
"Joseph PUSZTAY" a écrit dans le message de news: # > Envoyer 1 fichier sur le net en VB ??? > > Bonjour, je cherche à envoyer un fichier sur le Net depuis mon appli VB, > envoyer le fichier à une adresse email évidemment, alors j'ai: >
-------------------------------------------------------------------------- -- > ------------------------ > > 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 > ' > > Sub m_internet_Click() > Dim Mail As String > Mail = "?subject=titre_du_courrier" > ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1 > End Sub
-------------------------------------------------------------------------- -- > ------------------------ > > Mais il me manque la commande incluant le fichier, et la commande GO
pour
> l'envoyer, à moins qu'il y ait une autre méthode ??? > > Merci, au revoir et à bientôt. Joe. > >
