Macro para seleccionar opciones de una ventana emergente
Al ejecutar una macro para el envió masivo de correos que vez incluye la firma del Outlook, sin embargo, los documentos antes de ser enviados deben ser categorizados en la herramienta que se indica a continuación:
Sin embargo, el macro corre bien y lanza este mensaje previo al envió y se abre el pantallazo anterior, se adjunta el macro construido para efectos de validar cual puede ser la solución:
Sub enviarMail()
Dim App As Object
Dim Mail As Object
Dim Correo As Workbook
Dim Base As Worksheet
Dim Ruta As String
Dim File As String
Dim Extension As String
Dim Msg As String
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
Set App = CreateObject("Outlook.Application")
Set Mail = App.CreateItem(0)
Set Correo = Workbooks(ThisWorkbook.Name)
Set Base = Correo.Sheets("datos")
'Cuerpo del mensaje
Msg = Msg & "Como "
Msg = Msg & Base.Range("H" & i).Value
Msg = Msg & " de "
Msg = Msg & Base.Range("G" & i).Value
Msg = Msg & " actualmente estamos examinando los estados financieros con corte al "
Msg = Msg & Base.Range("I" & i).Value
Msg = Msg & ",con relación a dicho examen, agradecemos dar respuesta a la circularización adjunta. " & "<br><br>"
Msg = Msg & vbNewLine
Msg = Msg & "Para que este proceso sea eficaz y después de haber firmado y descrito su respuesta por favor envíela directamente a Ejemplo, a la siguiente dirección "
Msg = Msg & Base.Range("M" & i).Value
Msg = Msg & " en "
Msg = Msg & Base.Range("N" & i).Value
Msg = Msg & ",con atención a "
Msg = Msg & Base.Range("J" & i).Value
Msg = Msg & ", o a los correos electrónicos "
Msg = Msg & Base.Range("L" & i).Value & vbNewLine
With Mail
.Display
.To = Base.Range("A" & i).Value
.CC = Base.Range("L" & i).Value
.Subject = Base.Range("B" & i).Value
.Attachments.Add (Base.Range("D" & i).Value)
.HTMLBody = "<Body><p><span style='font-size:13;font-family:Trebuchet MS;'>" & "Estimado(a) Buen día," & "</span>" & _
"<p><span style='font-size:13;font-family:Trebuchet MS;'>" & Msg & "</span>" & _
"<p><span style='font-size:13;font-family:Trebuchet MS;'>" & "Quedamos atentos, feliz día" & "</span>" & _
"<p><span style='font-size:13;font-family:Trebuchet MS;'>" & "Cordialmente," & "</p>" & .HTMLBody
.Send
End With
Next i
MsgBox "Envío realizado con éxito...", vbInformation, "Notificación"
End Sub
