¿Dejar caer un archivo en un icono de escritorio para adjuntarlo a un nuevo correo electrónico?

¡Hola, comunidad de superusuarios!

Ya intenté buscar una solución pero no pude encontrar nada. Lo que quiero hacer es lo siguiente:

Me gustaría poder colocar uno (o el mejor número posible) de archivos en un ícono, y luego ver automáticamente un nuevo correo electrónico a un destinatario específico abierto y los archivos adjuntos. No me importa enviar el correo manualmente, pero no quiero hacer todas las cosas antes de eso cada vez.

Información adicional: Quiero enviar cosas entre dos computadoras portátiles comerciales, por lo que Dropbox no es una opción, ya que está prohibido, y también quiero que los archivos aparezcan en los correos electrónicos, y no solo en la otra computadora.

¿Es esto posible en absoluto? Pensé que podría haber algún truco de lote simple para esto.

Lo que probé hasta ahora:

• Busca en Google una gran variedad de frases similares a "arrastrar y soltar por lotes al icono de correo electrónico" y leer las entradas del foro

• Intentando arrastrar y soltar un archivo en un acceso directo a "mailto: a@b.com" -> sin efecto

• Intento encontrar algún script por lotes que lo haga, pero solo encontré extensiones extrañas para escribir correos electrónicos desde la línea de comandos, que no es lo que quiero hacer

Versión corta: puedes, y no es demasiado difícil, sorprendentemente.

Sin embargo, solo un archivo por lotes no funcionará, debe utilizar modificadores de línea de comandos para un programa específico.

Para Outlook, parece que es posible usando modificadores de línea de comando:
https://support.office.com/en-us/article/Command-line-switches-for-Outlook-for-Windows-079164CD-4EF5-4178 -B235-441737DEB3A6? Ui = es-US & rs = es-US & ad = US

Y para Thunderbird esto se puede hacer con el interruptor de composición:
http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29

Y puede encontrar cómo utilizar el soporte de arrastrar y soltar para un archivo por lotes desde este enlace:
http://www.computing.net/answers/programming/drag-drop-files-to-batch-/20499.html

Sin embargo, nunca he trabajado mucho en archivos por lotes. (Lo máximo que he hecho es crear una versión portátil de Minecraft). Por lo tanto, no conozco completamente el proceso utilizado por el último enlace, pero espero que sea suficiente para ubicarte en el camino correcto.

¡Espero que esto ayude!

Logré hacerlo para un archivo, lo cual fue realmente fácil al final. Dejar caer varios archivos sigue siendo un desafío, ya que Outlook no permite adjuntar varios archivos a través de la línea de comandos. Mi código":

"C:\Program Files (x86)\Microsoft Office\Office15\outlook.exe" /c ipm.note /m "me@mail.de&subject=Files%%20sent&body=See%%20attachements" /a %1

Adaptar:

• Encuentre la ubicación de su Outlook .exe y reemplácelo
• Cambie la dirección de correo, el asunto y el cuerpo que desee (espacio = %% 20)

Si no le importa usar VBS en lugar de lote, esta es una compilación de varios lugares que parcheé para manejar lo mismo.

Guarde el código en un nombre de archivo .vbs de su elección y póngalo en su escritorio.

Cree un buen icono para él y copie pegar o arrastre y suelte varios archivos en él. Siempre que los suelte todos a la vez, todos se adjuntarán a un solo correo electrónico de Outlook que se enviará inmediatamente a los nombres que preconfigure en el script. Si desea ver su trabajo antes de enviarlo, comente la línea final "oEmailItem.Send". Luego espera un envío manual.

Debido a los tipos de archivo limitados aceptados por Outlook como archivos adjuntos, me gustaría agregar la capacidad de comprimir todos los archivos que se han caído en el script, pero aún no he podido hacer que funcione.

Si puede agregar este componente, vuelva a publicarlo.

Option Explicit
Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem
Dim a, oAttachments, subjectStr, olFormatHTML
olMailItem = 0
olFormatHTML = 2
Set objArgs = WScript.Arguments 'gets paths of selected files
Set OutApp = CreateObject("Outlook.Application") 'opens Outlook
Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email
oEmailItem.To = "you@email.net"
oEmailItem.cc = "yourfriend@mailcom"
oEmailItem.bcc = "another@mailcom"
For a = 0 to objArgs.Count - 1
Set oAttachments = oEmailItem.Attachments.Add(objArgs(a))
subjectStr = subjectStr & Right(objArgs(a),Len(objArgs(a))-       (InStrRev(objArgs(a),"\"))) & ", " 'recreates the default Subject e.g. Emailing: file1.doc, file2.xls
Next
If subjectStr = "" then subjectStr = "No Subject "
oEmailItem.Subject = "Important Items " & Left(subjectStr,    (Len(subjectStr)-2))
oEmailItem.BodyFormat = olFormatHTML
oEmailItem.Display
oEmailItem.Send