Como añadir dirección de correo en el campo CC dentro de una Macro en Outlook
Publicado por Mauricio (2 intervenciones) el 03/01/2024 19:49:40
Buenas tardes:
No cuento con mucho conocimiento en programación, de hecho el código que estoy utilizando me lo compartió un amigo al cual estoy modificando los datos de acuerdo a lo que necesito.
Este código captura un dato del asunto del correo, lo busca en una tabla en access y responde al remitente toda la información relacionada al dato. Mi consulta es saber cómo agregar direcciones de correo en el campo CC (strCC) que están en la tabla Access asociadas al dato que fue capturado inicialmente.
Public DataFinal(1 To 15) As String
Public Function BuscarCliente(SenderX As String, CadenaX As String)
Dim Ruta As String, Conex As String
Dim Cone As New ADODB.Connection
Ruta = "Documents\Prueba.accdb"
Conex = "Data Source=" & Ruta & ";" & "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Jet OLEDB:Database Password=1234ABCD"
Set Cone = New ADODB.Connection
Cone.ConnectionString = Conex
Cone.Open
Dim RsC As ADODB.Recordset
Set RsC = New ADODB.Recordset
If IsNumeric(CadenaX) Then
RsC.Open "SELECT * FROM Base WHERE CLIV_NUMERO_DOCUMENTO LIKE '%" & CadenaX & "%' ", Cone, adOpenKeyset, adLockBatchOptimistic
Else
RsC.Open "SELECT * FROM Base WHERE NOMBRES LIKE '%" & CadenaX & "%' ", Cone, adOpenKeyset, adLockBatchOptimistic
End If
If RsC.RecordCount < 1 Then
Call FnSendMailSafe(SenderX, "", "", "Búsqueda sin resultados", "No se encontró ningún Cliente en gestión con el " & IIf(IsNumeric(CadenaX), " documento ", "nombre similar al ingresado ") & CadenaX & vbNewLine & vbNewLine & "Se recomienda escribir a")
Else
Dim CantidadEncontrados As Integer
Dim CadenaFinal As String
CantidadEncontrados = 0
CadenaFinal = "<HTML>Se encontraron los siguientes Clientes con el criterio de búsqueda " & IIf(IsNumeric(CadenaX), "(documento)", "(nombres)") & " similar a " & CadenaX & ":" & vbNewLine & vbNewLine
RsC.MoveFirst
Do Until RsC.EOF
CadenaFinal = CadenaFinal & "<BR><BR>" & _
"<TABLE BORDER=1 WIDTH=600>" & _
"<TR><TD>DOCUMENTO: </TD><TD>" & RsC![CLIV_NUMERO_DOCUMENTO] & "</TD></TR>" & _
"<TR><TD>CLIENTE: </TD><TD>" & RsC![NOMBRES] & "</TD></TR>" & _
"<TR><TD>CALLS: </TD><TD>" & RsC![Call] & "</TD></TR>" & _
"<TR><TD> </TD><TD>" & RsC![NUEVO_CALL] & "</TD></TR>" & _
"<TR><TD>AREA: </TD><TD>" & RsC![AREA] & "</TD></TR>" & _
"<TR><TD>DERIVAR A: </TD><TD>" & RsC![DERIVAR] & "</TD></TR>" & _
"</TABLE>" & _
"--------------------" & vbNewLine & vbNewLine
RsC.MoveNext
CantidadEncontrados = CantidadEncontrados + 1
Loop
CadenaFinal = CadenaFinal & "</HTML>Total: " & CantidadEncontrados & IIf(CantidadEncontrados = 1, " cliente encontrado", " clientes encontrados")
Call FnSendMailSafe(SenderX, "", "", "Resultados de la búsqueda " & Now, CadenaFinal)
End If
RsC.Close
Set RsC = Nothing
Cone.Close
Set Cone = Nothing
End Function
Las direcciones de correo están en el campo RsC![DERIVAR] de la tabla Access.
Gracias,
No cuento con mucho conocimiento en programación, de hecho el código que estoy utilizando me lo compartió un amigo al cual estoy modificando los datos de acuerdo a lo que necesito.
Este código captura un dato del asunto del correo, lo busca en una tabla en access y responde al remitente toda la información relacionada al dato. Mi consulta es saber cómo agregar direcciones de correo en el campo CC (strCC) que están en la tabla Access asociadas al dato que fue capturado inicialmente.
Public DataFinal(1 To 15) As String
Public Function BuscarCliente(SenderX As String, CadenaX As String)
Dim Ruta As String, Conex As String
Dim Cone As New ADODB.Connection
Ruta = "Documents\Prueba.accdb"
Conex = "Data Source=" & Ruta & ";" & "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Jet OLEDB:Database Password=1234ABCD"
Set Cone = New ADODB.Connection
Cone.ConnectionString = Conex
Cone.Open
Dim RsC As ADODB.Recordset
Set RsC = New ADODB.Recordset
If IsNumeric(CadenaX) Then
RsC.Open "SELECT * FROM Base WHERE CLIV_NUMERO_DOCUMENTO LIKE '%" & CadenaX & "%' ", Cone, adOpenKeyset, adLockBatchOptimistic
Else
RsC.Open "SELECT * FROM Base WHERE NOMBRES LIKE '%" & CadenaX & "%' ", Cone, adOpenKeyset, adLockBatchOptimistic
End If
If RsC.RecordCount < 1 Then
Call FnSendMailSafe(SenderX, "", "", "Búsqueda sin resultados", "No se encontró ningún Cliente en gestión con el " & IIf(IsNumeric(CadenaX), " documento ", "nombre similar al ingresado ") & CadenaX & vbNewLine & vbNewLine & "Se recomienda escribir a")
Else
Dim CantidadEncontrados As Integer
Dim CadenaFinal As String
CantidadEncontrados = 0
CadenaFinal = "<HTML>Se encontraron los siguientes Clientes con el criterio de búsqueda " & IIf(IsNumeric(CadenaX), "(documento)", "(nombres)") & " similar a " & CadenaX & ":" & vbNewLine & vbNewLine
RsC.MoveFirst
Do Until RsC.EOF
CadenaFinal = CadenaFinal & "<BR><BR>" & _
"<TABLE BORDER=1 WIDTH=600>" & _
"<TR><TD>DOCUMENTO: </TD><TD>" & RsC![CLIV_NUMERO_DOCUMENTO] & "</TD></TR>" & _
"<TR><TD>CLIENTE: </TD><TD>" & RsC![NOMBRES] & "</TD></TR>" & _
"<TR><TD>CALLS: </TD><TD>" & RsC![Call] & "</TD></TR>" & _
"<TR><TD> </TD><TD>" & RsC![NUEVO_CALL] & "</TD></TR>" & _
"<TR><TD>AREA: </TD><TD>" & RsC![AREA] & "</TD></TR>" & _
"<TR><TD>DERIVAR A: </TD><TD>" & RsC![DERIVAR] & "</TD></TR>" & _
"</TABLE>" & _
"--------------------" & vbNewLine & vbNewLine
RsC.MoveNext
CantidadEncontrados = CantidadEncontrados + 1
Loop
CadenaFinal = CadenaFinal & "</HTML>Total: " & CantidadEncontrados & IIf(CantidadEncontrados = 1, " cliente encontrado", " clientes encontrados")
Call FnSendMailSafe(SenderX, "", "", "Resultados de la búsqueda " & Now, CadenaFinal)
End If
RsC.Close
Set RsC = Nothing
Cone.Close
Set Cone = Nothing
End Function
Las direcciones de correo están en el campo RsC![DERIVAR] de la tabla Access.
Gracias,
Valora esta pregunta
0