Email con VB6

[smoke001]

Con este codigo puedes enviar un email desde vb sin html configurando tu servidor SMTP

Código Visual Basic:

Private Sub Command1_Click()
Call Enviar
End Sub
 
 
Private Sub Enviar()
Const sch = "http://schemas.microsoft.com/cdo/configuration/"
 
Dim INI_PATH As String
Dim loCfg As Object
Dim loMsg As Object
Dim loBP As Object
Dim i As Long
Dim DestImg As String
Dim TempHTML As String
Dim TempHTMLMail As String
Dim strImg As String
 
 
 
 
 
Me.Enabled = False
FrmProgress.Show , Me
DoEvents
 
Set loCfg = CreateObject("CDO.Configuration")
 
With loCfg.Fields
  .Item(sch & "smtpserver") = "localhost"
  .Item(sch & "smtpserverport") = "25"
  .Item(sch & "sendusing") = 2
  .Item(sch & "sendusername") = "[email protected]"
  .Item(sch & "sendpassword") = "1234"
  .Item(sch & "smtpusessl") = "0"
  .Item(sch & "smtpconnectiontimeout") = 30
  .Item(sch & "smtpauthenticate") = "1"
End With
 
loCfg.Fields.Update
 
Set loMsg = CreateObject("CDO.Message")
 
With loMsg
  .Configuration = loCfg
  
  
  .From = ("[email protected]")
  .To = TxtPara
  .TextBody = Text1.Text
  .Subject = TxtAsunto
     
    'Prioridad
    ' -1=Low, 0=Normal, 1=High
    .Fields("urn:schemas:httpmail:priority") = 1
    .Fields("urn:schemas:mailheader:X-Priority") = 1
    'Importancia
    '0=Low, 1=Normal, 2=High
    .Fields("urn:schemas:httpmail:importance") = 2
    
        
    .Fields.Update
    .send
End With
Me.Enabled = True
Unload FrmProgress
     Email.Check1.Value = 1
 
 
 
Exit Sub
End Sub
 
Private Sub Form_Load()
Set HTML = Text1
End Sub