Como enviar email desde excel

03/02/2004 - 20:34 por Javier González | Informe spam
Hola

El problema es el siguiente, quiero que en excel cuando coloque cierto valor
en una celda, se envie un email a cierta direccion con un mensaje
especifico.

Gracias de antemano

Preguntas similare

Leer las respuestas

#1 Adumith
03/02/2004 - 20:45 | Informe spam
Prueba con esto

Sub EnviarLibro()
If MsgBox("Atención...!" & vbCrLf & "Esta a punto de
enviar la Requisición de Tecnología." & vbCrLf
& "Verifique que todos los datos del formulario estan
completados correctamente.", vbExclamation +
vbYesNo, "Solicitud de requisisión") = vbYes Then
MsgBox "Es posible que se presente una ventana de
MIcrosof Outlook, preguntando si desea permitir el envío
de esta requisición; haga clic en Si",
vbExclamation, "Solicitud de requisisión"
var = Hour(Time) & Minute(Time) & Second(Time)
Worksheets(2).Range("M5").Value = var
Do
titulo = "Requisición de tecnología " & var
Loop Until titulo <> False
ThisWorkbook.SaveAs Filename:=titulo
' ThisWorkbook.SendMail Recipients:="Sistemas y
Procedimientos", Subject:=titulo, ReturnReceipt:=True
ThisWorkbook.SendMail Recipients:="Raiza Nuñez",
Subject:=titulo, ReturnReceipt:=True
MsgBox "Se ha enviado: " & titulo & "
Satisfactoriamente...!", vbExclamation, "Solicitud de
requisisión"
End If
End Sub

Hola

El problema es el siguiente, quiero que en excel cuando


coloque cierto valor
en una celda, se envie un email a cierta direccion con


un mensaje
especifico.

Gracias de antemano


.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida