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

lostph

Enviando TXT para o site/email/FTP

6 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora