¿Como personalizar la opción "enviar a">"Destinatario de correo" del Explorador de Windows?
Hola,
Cuando utilizo la opción "Enviar a">"Destinatario de correo" del menú contextual del explorador de Windows, se abre una nueva ventana de edición de correo de Thunderbird con el/los adjunto(s) correspondiente(s) añadido(s) pero con el campo de destinatario vacío. Eso está bien, pero por mi trabajo resulta que muchos de mis correos los suelo enviar a un par de direcciones concretas y me gustaría añadir una opción personalizada al menú "Enviar a" que automáticamente rellene la dirección del destinatario para ahorrar tiempo, algo así como "Enviar a">"email de fulanito". He estado buscando por internet pero aunque he encontrado scripts para conseguir esto con Outlook, no he encontrado nada para Thunderbird.
He intentado adaptar las soluciones encontradas a Thunderbird pero sin éxito:
He probado con un script en VB escrito para Outlook: 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("Thunderbird.Application") 'opens Thunderbird Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email 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 = "Emailing: " & Left(subjectStr, (Len(subjectStr)-2)) oEmailItem.BodyFormat = olFormatHTML oEmailItem.Display
Y también llamando a Thunderbird con el comando: "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" /m fulanito@gmail.com /a
Pero no funciona. ¿Alguna sugerencia?
Todas las respuestas (2)
NOTA:
El script en VB (que por alguna extraña razón han desaparecido los saltos de línea) lo saqué de aquí: http://snipplr.com/view/74341/send-to-mail-recipient-using-outlook/
También he probado con lo explicado aquí: http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29
poniendo esto en el campo "comando" del acceso directo: thunderbird -compose "to='john@example.com,kathy@example.com',cc='britney@example.com',subject='dinner',body='How about dinner tonight?',attachment='C:\temp\info.doc,C:\temp\food.doc'" (aunque los adjuntos deberían ser los archivos que tengo seleccionados)
Pero a pesar de que este comando funciona desde Símbolo del Sistema, en un acceso directo lo único que hace es abrir una ventana de composición nueva pero vacía.