Olá galera !!!
Não sei o que houve, mas coloquei essa mensagem hoje á tarde aqui no fórum, e ela simplesmente sumiu....
Mas aqui vai ela novamente.
Tenho um código para enviar email com um simples clique em um botão, porém, o que eu não consegui foi fazer com que o endereço do email seja o que está no Textbox do meu form. Segue abaixo o código :
___________________________________________________
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal IpOperation As String, ByVal IpFile As String, _
ByVal IpParameters As String, ByVal IpDirectory _
As String, ByVal nShowCmd As Long) As Long
__________________________________________________
Private Const SW_SHOWNORMAL = 1
___________________________________________________
Private Sub SendMail(Optional Adress As String, _
Optional Subject As String, Optional Body As String, _
Optional CC As String, Optional BCC As String)
Dim strCommand As String
If Len(Subject) Then strCommand = "&Subject=" & Subject
If Len(Body) Then strCommand = strCommand & "&Body=" & Body
If Len(CC) Then strCommand = strCommand & "&CC=" & CC
If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC
If Len(strCommand) Then
Mid(strCommand, 1, 1) = "?"
End If
strCommand = "mailto:" & Adress & strCommand
Call ShellExecute(Me.hwnd, "open", strCommand, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub
__________________________________________________________
__________________________________________________________
Eu quero que o endereço de email seja o que está no text box.
Se alguém puder me ajudar....
