Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
lostph

Enviando TXT para o site/email/FTP

Recommended Posts

lostph

Pessoal, é o seguinte, eu tenho um formulario de cadastro aqui no meu programa, com 5 textbox, e eu gostaria que após preenchido e clicado no botão enviar (btn_enviar), enviasse para um site ou e-mail ou servidor.

tentei fazer mais não consegui, se alguem poder me ajuda ficaria grato.

----------------------------------------------------------------------------------

1 textbox = txt_nome

2 textbox = txt_ cidade

3 textbox = txt_uf

4 textbox = txt_sexo

5 textbox = idade

------------

2 button

1 button = btn_enviar

2 button = btn_cancelar.

------------------------------------

Ao ser preenchido todos os textbox, e clicado em btn_enviar as informações preenchidas no textbox, seria enviado para meu e-mail ou site ou ftp.

Obrigado.

Share this post


Link to post
Share on other sites
YoungCoder

Tens que te decidir pelo que queres...

- ou envias para uma pagina web

- ou envias email

- ou envias por ftp

ou envias por todos.. mas ao pedires ajuda especifica exactamente o que pretendes  :)

Option Explicit

Private Sub btn_enviar_Click()
   Call SendEmail
End Sub

Function SendEmail()
Dim objMessage As Object
Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Cadastro"
objMessage.From = "lostph@portugal-a-programar.org"
objMessage.To = "UmQualquerEmail@servidor.com"
objMessage.TextBody = "Cadastro no software " & vbCrLf & _
"NOME:  " & txt_nome & vbCrLf & _
"CIDADE:" & txt_cidade & vbCrLf & _
"UF:    " & txt_uf & vbCrLf & _
"SEXO:  " & txt_sexo & vbCrLf & _
"idade: " & txt_idade

'objMessage.AddAttachment "C:\Pasta1\Pasta2\Anexo.jpg"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pop3.servidoremail.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==

objMessage.Send
End Function

NAO ESQUECER de editar pelo menos as seguintes linhas

objMessage.From = "lostph@portugal-a-programar.org" <-- CABECALHO DO EMAIL

objMessage.To = "UmQualquerEmail@servidor.com" <-- QUEM VAI RECEBER O EMAIL

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pop3.servidoremail.com" <-- ENDEREÇO DO SERVIDOR DE EMAIL

[]'s


IIF(strQuestion = "Stupid",doSEARCH!,doHELP!)

Share this post


Link to post
Share on other sites
lostph

preenchi acho eu , da maneira correta.

mais deu esse erro aqui.

Error	1	Statement is not valid inside a method.	D:\Documents and Settings\Raphael\Configurações locais\Dados de aplicativos\Temporary Projects\WindowsApplication1\Form1.vb	4	9	WindowsApplication1
Error	2	Statement cannot appear within a method body. End of method assumed.	D:\Documents and Settings\Raphael\Configurações locais\Dados de aplicativos\Temporary Projects\WindowsApplication1\Form1.vb	6	5	WindowsApplication1
Error	3	Operator '&' is not defined for types 'String' and 'System.Windows.Forms.TextBox'.	D:\Documents and Settings\Raphael\Configurações locais\Dados de aplicativos\Temporary Projects\WindowsApplication1\Form1.vb	17	31	WindowsApplication1
Error	4	'End Sub' must be preceded by a matching 'Sub'.	D:\Documents and Settings\Raphael\Configurações locais\Dados de aplicativos\Temporary Projects\WindowsApplication1\Form1.vb	42	5	WindowsApplication1

não sou muito bom em visual basic, não consegui intende.

o e-mail é uma otima opção, porem não seria mais facil so um txt?

mais o e-mail se der pra configura está oótimo , grato YoungCoder.

Share this post


Link to post
Share on other sites
YoungCoder

o vbasic que estas a usar nao é vb6... é .net


IIF(strQuestion = "Stupid",doSEARCH!,doHELP!)

Share this post


Link to post
Share on other sites
lostph

ahhh tah , é que aqui na empresa eu tenho o vb6 e em casa eu tenho o visual studio 2008.

vou da uma testada aqui.

jah retorno uma resposta.

grato YoungCoder

Share this post


Link to post
Share on other sites
lostph

Run-time error '-2147220973 (80040213)';

Falha na conexão do transporte com o servidor

deu esse erro, eu estou usando o yahoo, deve ser pq ele requer autenticação?

Option Explicit

Private Sub btn_enviar_Click()
 Call SendEmail
End Sub

Function SendEmail()
Dim objMessage As Object
Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Cadastro"
objMessage.From = "lostph@yahoo.com.br"
objMessage.To = "lostph@yahoo.com.br"
objMessage.TextBody = "Cadastro no software " & vbCrLf & _
"NOME:  " & txt_nome & vbCrLf & _
"CIDADE:" & txt_cidade & vbCrLf & _
"UF:    " & txt_uf & vbCrLf & _
"SEXO:  " & txt_sexo & vbCrLf & _
"idade: " & txt_idade

'objMessage.AddAttachment "C:\Pasta1\Pasta2\Anexo.jpg"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pop.mail.yahoo.com.br."

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 995

objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==

objMessage.Send
End Function

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.