Excel - Help como enviar un mensaje gmail si se llega a una cantidad en excel

 
Vista:

Help como enviar un mensaje gmail si se llega a una cantidad en excel

Publicado por Arnulfo (1 intervención) el 28/03/2020 19:03:33
hola nesecito ayuda para realizar un programa en excel para enviar un correo de excel a gmail si se llega a una cantidad por ejemplo 400 de 500 no se envia nada si es 500 de 400 se envia un mensaje


tengo una plantilla de enviar un mensaje de excel a gmail

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Public Function EnviarMails_CDO() As Boolean
On Error GoTo ErrEnviarMails_CDO
 
' Creo la variable de objeto CDO
Dim Email As CDO.Message
 
Dim Autentificion As Boolean
 
' ahora doy vida al objeto
Set Email = New CDO.Message
 
'indicamos los datos del servidor:
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
 
'indicamos el nro de puerto. por defecto es el 25, pero gmail usa el 465.
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
 
'aqui dejamos en claro si el servidor que usamos requiere o nó autentificación.
'1=requiere, 0=no requiere. Para gmail, entonces, 1
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = Abs(1)
 
'segundos para el tiempo maximo de espera. aconsejo no modificarlo:
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 
 
'aqui defino como True (verdadera) a la autentificación para el envío de mails.
Autentificacion = True
 
'ahora configuramos las opciones de login de gmail:
If Autentificacion Then
 
    'nombre de usuario
    Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected].com"
 
    'contraseña
    Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "la contra"
 
    'si el servidor utiliza SSL (secure socket layer). en gmail: True
    Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
End If
 
'a partir de ahora tomaremos los datos incluidos en el la hoja de excel:
' Dirección del Destinatario
Email.To = "[email protected].com"
 
' Dirección del remitente
Email.From = "[email protected].com"
 
' Asunto del mensaje
Email.Subject = "hola"
 
' Cuerpo del mensaje
Email.TextBody = "jajajjaja"
 
 
'antes de enviar actualizamos los datos:
Email.Configuration.Fields.Update
 
 
'colocamos un capturador de errores, por las dudas:
On Error Resume Next
 
 
'enviamos el mail
Email.Send
 
 
'si el numero de error es 0 (o sea, no existieron errores en el proceso),
'hago que la función retorne Verdadero
If Err.Number = 0 Then EnviarMails_CDO = True
 
'destruyo el objeto, para liberar los recursos del sistema
If Not Email Is Nothing Then
    Set Email = Nothing
End If
 
'libero posibles errores
On Error GoTo 0
 
Exit Function
 
ErrEnviarMails_CDO:
    Exit Function
 
 
 
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder