Enviar correo automatico en caso de introducir 1 determinado dato

28/05/2007 - 12:43 por Eguren | Informe spam
Me gustaria que cada vez que se introduzca una cantidad superior a 90 en una
celda, se envie automaticamente un correo (diseñado previamente) a un
destinatario

Preguntas similare

Leer las respuestas

#1 Tux
28/05/2007 - 19:23 | Informe spam
Eguren escribió:
Me gustaria que cada vez que se introduzca una cantidad superior a 90 en una
celda, se envie automaticamente un correo (diseñado previamente) a un
destinatario



Hola Eguren :)

El siguiente evento hace algo parecido a lo que pides, digo parecido
porque tendra que explicar los del correo diseñado previamente ¿? :-(,
me refiero que si lo que quieres mandar es una hoja de excel un rango,
un libro etc... o es un correo ya guardado o tienes los datos para su
envio en algun archivo etc.

el siguiente codigo te envia el libro activo a un destinatario, cuando
se introduce un valor superior > 90 en la celda A1 :)

'[]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim destinatario As String

destinatario = ""

If Not Intersect(Target, Range("A1")) Is Nothing Then

Application.EnableEvents = False

If Target > 90 Then

ActiveWorkbook.SendMail Recipients:=destinatario
'MsgBox "ok"

End If

Application.EnableEvents = True

End If


End Sub

'[]


Comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com
Respuesta Responder a este mensaje
#2 Eguren
29/05/2007 - 09:56 | Informe spam
Gracias, si q me ha servido :)

"Tux" escribió:

Eguren escribió:
> Me gustaria que cada vez que se introduzca una cantidad superior a 90 en una
> celda, se envie automaticamente un correo (diseñado previamente) a un
> destinatario

Hola Eguren :)

El siguiente evento hace algo parecido a lo que pides, digo parecido
porque tendra que explicar los del correo diseñado previamente ¿? :-(,
me refiero que si lo que quieres mandar es una hoja de excel un rango,
un libro etc... o es un correo ya guardado o tienes los datos para su
envio en algun archivo etc.

el siguiente codigo te envia el libro activo a un destinatario, cuando
se introduce un valor superior > 90 en la celda A1 :)

'[]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim destinatario As String

destinatario = ""

If Not Intersect(Target, Range("A1")) Is Nothing Then

Application.EnableEvents = False

If Target > 90 Then

ActiveWorkbook.SendMail Recipients:=destinatario
'MsgBox "ok"

End If

Application.EnableEvents = True

End If


End Sub

'[]


Comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com










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