Solved

Outlook > Send to

Posted on 2007-03-23
8
255 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
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 
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

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Learn more about how the humble email signature can be used as more than just an electronic business card. When used correctly, a signature can easily be tailored for different purposes by different departments within an organization.
This process describes the steps required to Import and Export data from and to .pst files using Exchange 2010. We can use these steps to export data from a user to a .pst file, import data back to the same or a different user, or even import data t…
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 …
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

707 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

20 Experts available now in Live!

Get 1:1 Help Now