Enviar correo automatico en caso de introducir 1 determinado dato

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

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