Picproje Elektronik Sitesi

Merhaba,

Windows altında bir dosyaya sağ tıklayıp "Send to->Mail recipient" yoluyla varsayılan e-posta programının gönderme penceresi açılıp dosyalar ekleniyor. Yalnız fazladan bir uyarı mesajı da ekleniyor:

Alıntı YapYour message is ready to be sent with the following file or link attachments:

Note: To protect against computer viruses, e-mail programs may prevent sending or receiving certain types of file attachments. Check your e-mail security settings to determine how attachments are handled.

Bunu engellemek için SendTo klasörüne yeni bir script dosyası koyup gönderim yaparken onu kullanmak gerekiyor.
Outlook kullananlar için (çoklu dosya ekleme var) http://www.slipstick.com/outlook/create-a-custom-send-to-shortcut/
Thunderbird için (çoklu dosya ekleme yok) http://codeverge.com/mozilla.support.thunderbird/default-body-when-doing-sent-to-m/1533851

Ben Postbox (Thunderbird tabanlı) kullandığım için, yukarıda Thunderbird için verdiğim adresteki kodu çoklu dosya eklemeyi de destekleyecek şekilde değiştirdim. Şu anda sorunsuz kullanılabilir:

Option Explicit
Dim objShell
Dim objArgs
Dim attachments
Dim a
Set objArgs = WScript.Arguments 'gets paths of selected files
For a = 0 to objArgs.Count - 1
attachments = attachments & Right(objArgs(a),Len(objArgs(a))) & ","
Next
Set objShell = CreateObject("WScript.Shell")
objShell.Exec("C:\Program Files (x86)\Postbox\postbox.exe -compose subject='See attached',attachment='" & attachments & "'")
Set objShell = Nothing

Bunu uzantısı .vbs (SendToMailRecipient.vbs gibi) olacak şekilde <user>\AppData\Roaming\Microsoft\Windows\SendTo klasörüne kaydettikten sonra hangi adı verdiyseniz (örnekte SendToMailRecipient.vbs) SendTo menüsünden onu seçeceksiniz.