ENVIAR EMAIL

GUTO 30/04/2005 11:46:13
#81083

tipo vc pode usar seu outlook com um link dentro de uma label

'clicando na label leva para o outlook pra enviar email
Shell ("start Mailto:email@terra.com.br"), vbHide

ou
chamando o outlook
Shell ("C:\Arquivos de programas\Outlook Express\msimn.exe"), vbMaximizedFocus

ALEXANDRE.SANTO 30/04/2005 13:33:16
#81094 Resposta escolhida

Coloque no seu form um botao e uma TextBox onde nela vc vae digitar o email da pessoa ...e coloque esse codigo

'No form

Private Sub Text1_Click()
Call ShellExecute(0&, vbNullString, "mailto:" & _
Text1.Text, vbNullString, vbNullString, _
SW_SHOWNORMAL)
End Sub

'Num module

Public Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Public 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
Public Const SW_SHOWNORMAL = 1

Public Function StartCPLApp(AppName As String) As Long
' AppName With ending
Dim Scr_hDC As Long

Scr_hDC = GetDesktopWindow()
StartCPLApp = ShellExecute(Scr_hDC, "Open", "Control", AppName, "C:\", SW_SHOWNORMAL)
End Function

GUTO 30/04/2005 13:41:05
#81096

é bom tamem se o nome do email estiver digitado num txt colocar essa instrucao dentro de um click do botao, pra que toda vez q vc clicar na txt ate mesmo pra digitar um novo email ele naun levar para o outlook

Shell "start.exe mailto:" & txtemail.Text & "?" & "Mensagem"