Verónica, por que te pide una contraseña?
Lo que yo hago es lo siguiente:
Sheets("Hoja1").Select
Range("J20").Select
correo = ActiveCell
Range("J21").Select
comentarios = ActiveCell
ActiveSheet.Range("A1:G42").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = comentarios
.Item.To = correo
.Item.Subject = "Programa Semanal"
.Item.Send
End With
Aqui la direccion esta en la celda J20, puedes ponder la direccion en el mismo codigo, lo mismo para los comentarios.
Con esto no me pide ninguna contraseña......
La gracia es que puedes enviar un rango de celdas de la una hoja excel por el correo como parte del mensaje, a mi me funciona excelente.
Probé el programa que me dijiste, funciona impecable, solo que la ventana aparece de todas maneras. Sabes si se puede configurar para que no lo muestre?
Saludos.