Visual Basic - E-MAILS DESDE VBASIC

HOLA

QUERIA SABER COMO PODER ENVIAR E-MAILS DESDE VBASIC NORMAL (NO NET)

GRACIAS

Dim ObjOutLook As Outlook.Application
Dim ObjMail As Outlook.MailItem

Set ObjOutLook = New Outlook.Application
Set ObjMail = ObjOutLook.CreateItem(olMailItem)

ObjMail.To = cPara
ObjMail.Subject = "Hola"
ObjMail.Body = "Envío un Mail de Prueba"
ObjMail.Importance = olImportanceHigh
ObjMail.DeleteAfterSubmit = True
ObjMail.Send
Set ObjOutLook = Nothing

¿sabrias como enviar un rango de celdas excel como body (mensaje)?

Es lo mismo, sólo tienes que buscar la forma en que quieres mostrarlas

Mi problema es que no se como asignar ese rango de celdas al mensaje:

objmailitem.body = Range("A1:c15")

esto me da error, sabes cual es la manera de asignar este rango.

Otra cosa, si pongo un texto , se envia correctamente pero, me sale una ventana donde me informa que un programa esta intentando mandar emails y pide confirmacion. hay manera de evitar esto.

he visto en otros foros que recomiendan enviar los email con herramientas MAPI tu sabes hacerlo.

Y abusando de tu confianza, no sabras enviar faxes, es decir controlar el modem paramandar lo mismo, un rango de celdas

Hola sabes como enviar correo desde VB pero si utilisar outlook o como comfiguro el outlook pero seria mejor enviar sin utilisar dicho programas.gracias

Si, cuando usas outlook en algunas versiones te indicará que hay un programa que está trratando de enviar un mail, esto lo puedes configurar desde el mismo outlook para que no te pregunte.

Con Mapi sería así:
En particular a mi no me gusta ya que es más
'Abres una Sesión de correo
MsSesion.SignOn
mmMensaje.SessionID = MsSesion.SessionID

'Redacta un mensaje nuevo
mmMensaje.Compose

'Acusar recibo
mmMensaje.MsgReceiptRequested = True

'Destinatario
mmMensaje.RecipIndex = 0
mmMensaje.RecipType = mapToList
mmMensaje.RecipDisplayName = "[email protected]"
mmMensaje.ResolveName

mmMensaje.MsgSubject = "lhiwegdledkjlaxdkjl"
mmMensaje.MsgNoteText = "dcdld-kchñkjldclkdjscklsdlckn "

mmMensaje.AttachmentIndex = mmMensaje.AttachmentCount
mmMensaje.AttachmentPathName = "C:\" & Ruta
mmMensaje.AttachmentName = "C:\" & Ruta
mmMensaje.AttachmentType = mapData
mmMensaje.AttachmentPosition = Len(mmMensaje.MsgNoteText) - 1

mmMensaje.Send True

MsSesion.SignOff

Luis, yo tengo tambien un codigo que usando MAPI me envia un email.

Ahora necesito que en el cuerpo del mensaje me inserte tambien la firma que tengo configurada en el outlook (autofirma que sale cuando le das a nuevo mensaje).
¿Alguna idea de como hacerlo?

LLevo horas mirando por Internet y no encuentro nada...

Puedes utilizar MAPI. En http://my.execpc.com/~dg/tutorial/howmapi/howmapi.htm tienes un pequeño tutorial.