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

1 Respuesta

273.225 pts. Programador en VBA, Visual Studio, Contador Privado
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