With objMail .To =

Como hacer que la opcion abajo en negrita tome el valor especifico de una celda:
With objMail
.To =
.Subject = "Solicitud de Vacaciones"
.Attachments.Add ActiveWorkbook.FullName
'If Not ThisWorkbook.Sheets("SOL-VAC").Anexo.Value = "" Then
'.Attachments.Add ThisWorkbook.Sheets("SOL-VAC").Anexo.Value
'End If
.Send
End With
End Sub

1 Respuesta

Respuesta
1
Prueba así:
MailTOP = Range("A2").Value
With objMail
        .To = MailTOP
resto_del_Código
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas