Hola, intenta esto:
Necesitas usar los componentes:
MAPISESSION (nombralo como mapsess)
MAPIMESSAGES (nombralo como mapmess)
crea un boton CMDENVIAR y en el evento CLICK pega esto:
Private Sub cmdenviar_Click(Index As Integer)
If mapsess.NewSession Then
Exit Sub
Else
With mapsess
' Establecer DownLoadMail a False para evitar la descarga inmediata.
.DownLoadMail = False
.LogonUI = True ' Usar la interfaz de usuario de inicio de sesión del sistema de mensajería subyacente.
.SignOn ' Método Signon.
' Si se ejecuta correctamente, devolver True
Logon = True
' Establecer NewSession a True y establecer el
' indicador de variable a True
.NewSession = True
bNewSession = .NewSession
mapmess.SessionID = .SessionID ' Debe establecer esto antes de continuar.
End With
End If
mapmess.MsgIndex = -1
mapmess.RecipIndex = mapmess.RecipCount
mapmess.AttachmentIndex = mapmess.AttachmentCount
mapmess.RecipAddress = "NOMBRE USUARIO DE CORREO"
mapmess.AddressResolveUI = True
mapmess.ResolveName
mapmess.MsgSubject = mens & cmbproducto.Text
mapMess.AttachmentPathName = "C:\archivo.txt"
mapmess.Send True
end sub
Requieres tener un cliente de correo configurado en la pc.
Suerte y salu2...
