With objMail

Como puedo hacer para que esta opcion tome el valor especifico de una celda. En lo señalado en negrito
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

Respuesta
1
.To = Range("A2").Value

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas