Error en el .To
Publicado por Stevenson (13 intervenciones) el 14/05/2015 05:55:56
Cordial saludo
Tengo un código que funciona bien siempre y cuando sólo tenga una fecha que coincida con la del sistema, si tengo mas de una fecha que coincida con la del sistema no funciona (resalta error en el .to=correo) pues la macro sólo envía un correo y debería de enviar tantos correos como coincidencias encuentre a los destinatarios que correspondan
según la columna B
Saludos
Tengo un código que funciona bien siempre y cuando sólo tenga una fecha que coincida con la del sistema, si tengo mas de una fecha que coincida con la del sistema no funciona (resalta error en el .to=correo) pues la macro sólo envía un correo y debería de enviar tantos correos como coincidencias encuentre a los destinatarios que correspondan
según la columna B
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
Sub Mandar_Correo2()
Dim OutApp As Object
Dim OutMail As Object
Dim correo As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
fila = 2Do While Not IsEmpty(Cells(fila, "A"))
If Cells(fila, "A") = Date Then
correo = Cells(fila, "B").Value
With OutMail
.To = correo
.CC = ""
.BCC = ""
.Subject = "RTA: Transferencia de Conocimiento"
.Body = "Cordial Saludo" + vbCrLf + "Hoy se cumplen 15 días luego de su participación en " & Cells(fila, "D").Value & " y aún no se ha cumplido con el compromiso de transferencia de conocimiento, por lo cual esperamos que nos aporte información al respecto" + vbCrLf + "Quedamos atentos"
.sendEnd With
End If
fila = fila + 1
Loop
On Error GoTo 0
Set OutMail = NothingSet OutApp = NothingEnd Sub
Saludos
Valora esta pregunta
0
