Solved

Outlook > Send to

Posted on 2007-03-23
8
286 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
Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

 
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
 
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

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

Question has a verified solution.

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

Suggested Solutions

Outlook Free & Paid Tools
Is your Office 365 signature not working the way you want it to? Are signature updates taking up too much of your time? Let's run through the most common problems that an IT administrator can encounter when dealing with Office 365 email signatures.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…

840 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