ENVIAR E-MAIL
Agora fugiu da minha alçada...
esse componente se não me engano é para contas que os processos de autenticação são negociadas outlook ou exchange. As contas do hotmail não é permitida que sejam criadas tais configurações via OUTLOOK EXPRESS.
Visualise a imagem:
Se eu estiver errado, por favor, corrijam-me.
Abraços.
conexão discada ou ADSL ?
sugestão: Configure sua conta no OutLook Express.
Entre no site, pegue os servidores pop e smtp.
Com o seu email, crie uma conta no outlook express.
No Outolook Clique:
Ferramentas > Contas > Adicionar > Email
Informe o nome de exibição nas Mensagens depois clique em Avançar
Informe o seu email e clique em avançar
Servidor de entrada de emails > pegue com o seu provedor
Servidor de saida de emails> pegue com o seu provedor e clique em Avançar
Nome da conta: seu email
Senha: informe sua senha Logo apos clique em Avançar depois em Concluir.
Achei um por winsock....
criei minha acc no yahoo,ele se connecta...
soh q no final da erro..pq eu n loguei...como eu poderia fazer para logar?
Citação:If .State = sckClosed Then ' Check to see if socket is closed
DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"
first = "mail from: " & FromEmailAddress & vbCrLf ' Get who's sending E-Mail address
Second = "rcpt to: " & ToEmailAddress & vbCrLf ' Get who mail is going to
Third = "Date: " & DateNow & vbCrLf ' Date when being sent
Fourth = "From: """ & FromName & """ <" & FromEmailAddress & ">" + vbCrLf ' Who's Sending
Fifth = "To: " & ToNametxt & vbCrLf ' Who it going to
Sixth = "Subject: " & EmailSubject & vbCrLf ' Subject of E-Mail
Seventh = EmailBodyOfMessage & vbCrLf ' E-mail message body
Ninth = "X-Mailer: STMP Sender" & vbCrLf ' What program sent the e-mail, customize this
.LocalPort = 0 ' Must set local port to 0 (Zero) or you can only send 1 e-mail per program start
.Protocol = sckTCPProtocol ' Set protocol for sending
.RemoteHost = MailServerName ' Set the server address
.RemotePort = 25 ' Set the SMTP Port
.Connect ' Start connection
WaitFor ("220")
StatusTxt.Caption = "Connecting...."
.SendData ("HELO EnterComputerNameHere" & vbCrLf)
WaitFor ("250")
StatusTxt.Caption = "Connected"
.SendData (first)
StatusTxt.Caption = "Sending Message"
WaitFor ("250")
.SendData (Second)
WaitFor ("250")
.SendData ("data" & vbCrLf)
WaitFor ("354")
.SendData (Fourth & Third & Ninth & Fifth & Sixth & vbCrLf)
.SendData (Seventh & vbCrLf)
.SendData ("." & vbCrLf)
WaitFor ("250")
.SendData ("quit" & vbCrLf)
StatusTxt.Caption = "Disconnecting"
WaitFor ("221")
.Close
Else
MsgBox (Str(.State))
End If
End With
End Sub
o que eu modificaria?