Solved

Outlook > Send to

Posted on 2007-03-23
8
268 Views
Last Modified: 2008-02-01
Hi

If i click on a file in explorer and go down to 'Send To > Mail Recipient' outlook will create a new email with this message:

It adds the files as an attachment and then this text as the body of the email:

 
The message is ready to be sent with the following file or link attachments:

20060517-1504 Letter.PDF


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.




Is there a way to stop it adding all this junk and having only say.. a signature at the bottom, ready for the user to type a message?

All suggestions appreciated!
0
Comment
Question by:MarkMichael
  • 5
  • 3
8 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 18779174
I don't know of any way to alter that behavior, but I do know a way to get around it.  That is to create your own "Send To" link.  It's easier than it sounds and the benefit is that it gives you complete control over how Outlook behaves during this operation.  All that's required to create a "Send To" link is writing a script that you then place in your Send To folder.  Here's a sample script that emulates the behavior of the default Mail Recipient link.

Dim objArgs, olkApp, olkNS, olkMessage, strFilenames
Set objArgs = WScript.Arguments
If objArgs.Count > 0 Then
    Set olkApp = CreateObject("Outlook.Application")
    Set olkNS = olkApp.GetNamespace("MAPI")
    'Change the name of your profile on the next line if it's not Outlook
    olkNS.Logon "Outlook"
    Set olkMessage = olkApp.CreateItem(0)
    olkMessage.BodyFormat = 2
    For I = 0 to objArgs.Count - 1
        olkMessage.Attachments.Add objArgs(I)
        strFilenames = strFilenames & olkMessage.Attachments.Item(I+1).FileName & ", "
    Next
    If Right(strFilenames,2) = ", " Then
        strFilenames = Mid(strFilenames,1,Len(strFilenames) - 2)
    End If
    olkMessage.Subject = "Emailing: " & strFilenames
    olkMessage.Display
    olkMessage.HTMLBody = "Your files are attached and ready to send with this message." & olkMessage.HTMLBody
End If
Set objArgs = Nothing
Set olNS = Nothing
Set olApp = Nothing

The nice aspect of this approach is that I can change the script to do anything I want.  I can change the text in the message, add a signature, pretty much anything I can think of.  I practice I use two scripts, one for internal staff and another for external staff.  The script for internal staff creates links to the files instead of attaching them.  That helps keep the mail system clean.  The script for external staff actually attaches the files.  

To use the script above, copy the code and paste it into Notepad.  Now, save it in your Send To folder with a .vbs extension.  
0
 
LVL 15

Author Comment

by:MarkMichael
ID: 18779531
I have tested this, but when I click on a file and right click 'SendToTest.vbs' nothing happens. Am i doing somethign wrong?
0
 
LVL 76

Expert Comment

by:David Lee
ID: 18779569
What version of Outlook do you have?  Is your Outlook profile named "Outlook"?  You can check that by going to Control Panel, clicking the Mail icon, then clicking Show Profiles.  If your profile is not named Outlook, then edit the script and change the profile name there to match your profile name.  I included a comment line in the script showing where that change needs to take place at.
0
 
LVL 15

Author Comment

by:MarkMichael
ID: 18779627
I am using Outlook 2007 actually, perhaps this is my problem. My outlook mail profile is also named Outlook. Any other possibilities besides it being 2007 incompatibility?
0
VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

 
LVL 76

Expert Comment

by:David Lee
ID: 18779669
I don't know if Outlook 2007 is the problem or not.  I'm going to test that right now.  In the meantime, what version of Windows are you on?  
0
 
LVL 76

Expert Comment

by:David Lee
ID: 18779762
I just tested with Outlook 2007 running on Windows XP and the script worked perfectly.
0
 
LVL 15

Author Comment

by:MarkMichael
ID: 18779829
I am running XP Pro SP2, I have added the file to the folder: C:\Documents and Settings\User\SendTo

I have just realised my problem, when doing the usual 'copy and paste' routine, always remember to paste!
;)
0
 
LVL 76

Expert Comment

by:David Lee
ID: 18780028
That does help.  Glad you got it working.  Cheers!
0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Finding original email is quite difficult due to their duplicates. From this article, you will come to know why multiple duplicates of same emails appear and how to delete duplicate emails from Outlook securely and instantly while vital emails remai…
Read this checklist to learn more about the 15 things you should never include in an email signature.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

896 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now