DE NOVO EMAIL POR SMTP?

PASCOAL 18/01/2010 21:04:54
#332258

Preciso apenas colocar [Ô]PARA[Ô] nessa rotina alguem pode me ajudar ?

sck.GetData Respuesta
Code = Left(Respuesta, 3)
Call AddStatus([Ô]<- [Ô] & Respuesta)
If Code >= 200 And Code <= 399 Then
Select Case SendStatus
Case CONECTED
sck.SendData [Ô]HELO [Ô] & DHelo & vbCrLf
SendStatus = MailFrom
Case MailFrom
sck.SendData [Ô]MAIL FROM:<[Ô] & DMailFrom & [Ô]>[Ô] & vbCrLf
AddStatus ([Ô]-> MAIL FROM:<[Ô] & DMailFrom & [Ô]>[Ô])
SendStatus = RCPTTO
Case RCPTTO
sck.SendData [Ô]RCPT TO:<[Ô] & DRcptTo & [Ô]>[Ô] & vbCrLf
AddStatus ([Ô]-> RCPT TO:<[Ô] & DRcptTo & [Ô]>[Ô])
SendStatus = DATAC
Case DATAC
sck.SendData [Ô]DATA[Ô] & vbCrLf
SendStatus = MESSAGGE
Case MESSAGGE
sck.SendData [Ô]FROM: [Ô] & DFrom & vbCrLf
AddStatus ([Ô]-> FROM: [Ô] & DFrom)
sck.SendData [Ô]SUBJECT: [Ô] & DSubject & vbCrLf
AddStatus ([Ô]-> SUBJECT: [Ô] & DSubject)
sck.SendData [Ô]X-Priority: 1[Ô] & vbCrLf & [Ô]X-MSMail-Priority: High[Ô] & vbCrLf
sck.SendData DMensaje & vbCrLf

Dim i As Byte, Buff As String
If indexUUfiles > 0 Then
For i = 0 To indexUUfiles
Buff = Buff & UUfiles(i)
Next i
sck.SendData Buff
End If

sck.SendData vbCrLf & [Ô].[Ô] & vbCrLf

SendStatus = Quit
Case Quit
Call AddStatus([Ô]*** MAIL ENVIADO OK ***[Ô])
sck.SendData [Ô]QUIT[Ô] & vbCrLf
Call DesConectar
MsgBox [Ô]Email enviado com sucesso!![Ô], vbInformation
End Select
Else
Call DesConectar
End If

Obrigado