Envoie d'email

Hi Xavier,

you can try with Shell:

Option Explicit
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_SHOW = 5

'Sub Procedure

Private Sub BotaEnviar_Click()
ShellExecute hwnd, _
"open", _
"mailto:" & EmailNoForm & _
"?cc=" & CCNoForm & _
"&bcc=" & BCCNoForm & _
"&subject=" & AssuntoNoForm & _
"&body=" & Replace(MenssagemNoForm, vbCrLf, "%0D%0A"), _
vbNullString, vbNullString, _
SW_SHOW
End Sub


Luiz Cláudio C. V. Rocha
São Paulo - Brasil

"Luiz Cláudio"

you can try with Shell:
<snip>

Luiz Cláudio C. V. Rocha
São Paulo - Brasil

Tiens, le copain MVP brésilien ;-))


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Obrigado, colega MVP da França!

Luiz Cláudio C. V. Rocha
São Paulo - Brasil
MVP Office