Zer0

de nada cara... precisando estamos ai =)

WinXP Pro com SP2

não sei qual seria o problema, porque eu enviava antes, salvei o programa que funcionava num cd, troquei de HD, e quando passei os arquivos p/ o novo HD, o programa simplesmente fala q já enviou o e-mail, + não chega e nenhuma conta q eu use..... e o servidor SMTP eu testei no Outolook e funcionou sem problemas.... =/// já estou ficando louco... pois precisava disso urgente e não consigo fazer funcionar =////

só uma pergunta, o q esta OCX faz??? vlws

então... p/ limpar o texto numa TextBox no Form1 você pode fazer assim oh, no evento Click do seu botao no Form2, coloca a linha abaixo Private Sub Command1_Click() Form1.Text1.Text = "" End Sub basta você ler o q eu escrevi...

p/ limpar o texto numa TextBox no Form1 você pode fazer assim oh, no evento Click do seu botao no Form2, coloca a linha abaixo Private Sub Command1_Click() Form1.Text1.Text = "" End Sub espero ter ajudado... =)

alguém? =///

vixi galera, tive q trocar meu HD (deu problema no outro) e fiz o backup desse programa que envia e-mails, beleza, no HD antigo ele enviava o e-mail tranquilamente.... + quando coloquei o programa no novo HD, deu a mesmo coisa: não consigo enviar + e-mails via winsock.... alguém sera que pode me ajudar??? (já testei o mesmo servidor SMTP pelo outlook e funciona, + via winsock não.... e é o mesmo programa q funcionava antes de eu trocar o HD =/)

vixi galera, tive q trocar meu HD (deu problema no outro) e fiz o backup desse programa que envia e-mails, beleza, no HD antigo ele enviava o e-mail tranquilamente.... + quando coloquei o programa no novo HD, deu a mesmo coisa: não consigo enviar + e-mails via winsock.... alguém sera que pode me ajudar??? (já testei o mesmo servidor SMTP pelo outlook e funciona, + via winsock não.... e é o mesmo programa q funcionava antes de eu trocar o HD =/)

vlws grande Graymalkin, vou testar aqui agora... qualquer coisa eu volto a postar aqui... =) + muito obrigado pela sua ajuda, e que bom q eu pude contribuir, pelo menos com um pedacinho, p/ seu projeto... vlws...

alguém?

hmm.. entendi... + tipow, eu sempre usava esse servidor p/ mandar e-mails p/ meus amigos (nunca gostei do outlook...ai enviava por winsock)... EDITADO: galera, consegui arrumar aqui... simplesmente achei a informacao que o Graymalkin comentou que o Outlook coloca e tals.... seria essa oh: "qualquer-nome-sem-espaco: EBT Reporter" pronto! agora eu consigo enviar e-mails via Winsock... vlws Graymalkin.... muito obrigado mesmo..... agora, me surgiu uma duvida... como que eu faco p/ mandar emails no estilo HTML?? tipow, se o usuario digita numa textbox algo assim: "caro <b>Graymalkin</b>..." no email recebido eu vou ter esse resultado "caro Graymalkin..." obrigado + uma vez...

acabei de testar aqui, e consigo enviar atraves do outlook express (pelo SMTP: mx2.hotmail.com, sem configurar senha, nem usuario, nem nada, só o SMTP, dai envia e eu recebo na minha outra conta de email).... ai fui testar pelo winsock.... não deu em nada, diz que o email foi enviado com sucesso... + não recebo nada na minha outra conta de email =/// acho q então é problema com o winsock, não???

cara, aqui também não funcionou ... mas muito obrigado pela ajuda..... tipow, tem alguma configuracao do sp2 que eu possa fazer p/ poder liberar o envio??? se for preciso, como eu removo o sp2??? vlws

tah ai oh, esse foi o que funcionou alem do 1o (o 1o é muito grande p/ eu postar aqui, porque ele tinha varias funcoes e tals...), + esse funcionava direitinho também.... + agora não funciona +.... segue o codigo Dim Response As String, Reply As Integer, DateNow As String Dim first As String, Second As String, Third As String Dim Fourth As String, Fifth As String, Sixth As String Dim Seventh As String, Eighth As String Dim Start As Single, Tmr As Single Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String) Winsock1.LocalPort = 0 ' Must set local port to 0 (Zero) or you can only send 1 e-mail pre program start If Winsock1.State = sckClosed Then ' Check to see if socet is closed DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600" first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf ' Get who's sending E-Mail address Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf ' Get who mail is going to Third = "Date:" + Chr(32) + DateNow + vbCrLf ' Date when being sent Fourth = "From:" + Chr(32) + FromName + vbCrLf ' Who's Sending Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf ' Who it going to Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf ' Subject of E-Mail Seventh = EmailBodyOfMessage + vbCrLf ' E-mail message body Ninth = "mouse mailer" + vbCrLf ' What program sent the e-mail, customize this Eighth = Fourth + Third + Ninth + Fifth + Sixth ' Combine for proper SMTP sending Winsock1.Protocol = sckTCPProtocol ' Set protocol for sending Winsock1.RemoteHost = MailServerName ' Set the server address Winsock1.RemotePort = 25 ' Set the SMTP Port Winsock1.Connect ' Start connection WaitFor ("220") StatusTxt.Caption = "Connecting...." StatusTxt.Refresh Winsock1.SendData ("HELO BlaH" + vbCrLf) WaitFor ("250") StatusTxt.Caption = "Connected" StatusTxt.Refresh Winsock1.SendData (first) StatusTxt.Caption = "Sending Message" StatusTxt.Refresh WaitFor ("250") Winsock1.SendData (Second) WaitFor ("250") Winsock1.SendData ("data" + vbCrLf) WaitFor ("354") Winsock1.SendData (Eighth + vbCrLf) Winsock1.SendData (Seventh + vbCrLf) Winsock1.SendData ("." + vbCrLf) WaitFor ("250") Winsock1.SendData ("quit" + vbCrLf) StatusTxt.Caption = "Disconnecting" StatusTxt.Refresh WaitFor ("221") Winsock1.Close Else MsgBox (Str(Winsock1.State)) End If End Sub Sub WaitFor(ResponseCode As String) Start = Timer ' Time event so won't get stuck in loop While Len(Response) = 0 Tmr = Start - Timer DoEvents ' Let System keep checking for incoming response **IMPORTANT** If Tmr > 50 Then ' Time in seconds to wait MsgBox "SMTP service error, timed out while waiting for response", 64, MsgTitle Exit Sub End If Wend While Left(Response, 3) <> ResponseCode DoEvents If Tmr > 50 Then MsgBox "SMTP service error, impromper response code. Code should have been: " + ResponseCode + " Code recieved: " + Response, 64, MsgTitle Exit Sub End If Wend Response = "" ' Sent response code to blank **IMPORTANT** End Sub Private Sub Command1_Click() SendEmail txtEmailServer.Text, txtFromName.Text, txtFromEmailAddress.Text, txtToEmailAddress.Text, txtToEmailAddress.Text, txtEmailSubject.Text, txtEmailBodyOfMessage.Text 'MsgBox ("Mail Sent") StatusTxt.Caption = "Mail Sent" StatusTxt.Refresh Beep Close End Sub Private Sub Command2_Click() End End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock1.GetData Response ' Check for incoming response *IMPORTANT* End Sub

galera, seguinte, eu achei um aplicativo na internet que envia e-mails (alias, o unico que funcionou direito aqui...), beleza, ele funcionava e tals, dai eu instalei o Service Pack 2 do WinXP e o SP6 do VB, e o aplicativo parou de funcionar.... não consigo mais enviar e-mails atraves do VB, de jeito nenhum.... já tentei outros exemplos, outros programas e nada..... sera que tem alguma coisa a ver com o SP2 do Win ou o SP6 do VB??? eles poderiam estar bloqueando o envio via winsock??? outra coisa, alguém ai pode me ajudar a fazer um que realmente funcione??? estou precisando incorporar um "enviador de emails" ao meu aplicativo p/ o usuario poder enviar relatorios p/ outra pessoa... se alguém puder exclarecer minhas duvida e/ou puder me ajudar com o winsock p/ enviar emails.... eu fico grato..... por favor galera, é urgente esse aplicativo =/// vlws

seguite, eu precisava de um script q enviasse as informacoes de um formulario p/ meu e-mail... só q tem um problema........ não entendo nada de asp, não sei p/ onde vai =/ dai eu precisava de um tutorial ou alguém com disposicao p/ me ensinar =/ (só precisava disso =/ um formulario q envia e-mails).... hospedagem ASP eu tenho.... obrigado por qualquer ajuda... vlws...

seguinte galera, eu tenho essa maquina AMD Athlon XP 1600+ Placa Mãe: K7S5A 256 de ram (não sei a frequencia) =/ GeForce 4 MX440 de 64mbs dai eu andei vendo os precos e tals, porque eu queria fazer um upgrade nele, trocando a placa mae, a memoria e a placa de video.... o cara da loja que eu fui, me recomendou essas peças oh Placa mae: A7V8X-X da Asus Memoria: 1 de 512mb 400 (acho q isso é a frequencia =/, não sei nada disso =/) Plava de Video: Radeon 9600 Pro de 128mbs q q vocês acham??? tah boa essa configuracao ou vocês recomendam alguma coisa??? vlws =)

vixi, esqueci de logar =/// essa resposta acima é minha xD EDITADO: deixa p/ lá, consegui juntar a musica ao meu .exe usando o OLE....

baixei os codigos-fonte + não entendi =/// alguempode me ajduar???

beleza.... + como eu faco isso??? =/

seguinte galera, eu tenho minha aplicacao e tals, e no about, quando o usuario abre ele, toca uma musica de fundo.... tem como eu não "instalar" a musica no pc do usuario (tipow, o programa buscar de uma pagina da internet o .mid ou agregar o .mid e o .exe) vlws

+ tipow, eu queria saber qual é o formato/onde acho p/ colocar numa aplicacao minha de VB

bom galera, eu tava precisando saber qual é o formato de musica q toca em cracks e keygens, sabem qual é??? tipow, aquelas q parecem musiquinhas de video-games e tals..... vocês sabem onde eu posso acha-las??? tipow, tow precisando e tals, num outro forum q eu fui, fecharam meu tópico e tals =/, porque eu fiz a mesmo pergunta...... pow, só queria saber onde acha-las p/ colocar elas no about da minha aplicacao =/ se alguém puder me ajudar, eu agradeco, vlws

não creio q seja isso.... porque um amigo havia me falado isso também, então coloquei todos os jogos no "low"... e outra, counter-strike 1.5 numa geforce4 e um amd 1.6ghz com 256 ram não era p/ travar, não concorda??? mesmo assim, valeu pela atencao