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
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 de Juan Carlos González Chavarría
1