A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

When sending an email from Word why do I have to add my signature?



 
 
Thread Tools Display Modes
  #1  
Old June 4th, 2010, 07:42 PM posted to microsoft.public.word.docmanagement
trickymom
external usenet poster
 
Posts: 1
Default When sending an email from Word why do I have to add my signature?

When I send an email directly from Word or Excel my signature doesn't
automatically populate like it does in Outlook. Is there any way I can get
it to populate automatically? I have two outlook accounts that I switch back
and forth from and I can never tell which one I am sending email from.
  #2  
Old June 5th, 2010, 06:03 AM posted to microsoft.public.word.docmanagement
Graham Mayor
external usenet poster
 
Posts: 18,297
Default When sending an email from Word why do I have to add my signature?

Excel and Word are not e-mail applications. If you want to send an e-mail
from within Word and use the Outlook functionality, then you need to call
Outlook from Word using a macro. The following will attach the current Word
document to an Outlook e-mail message c/w signature for the current default
account: http://www.gmayor.com/installing_macro.htm

Sub Send_As_Mail_Attachment()
' send the document as an attachment _
in an Outlook Email message
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
'Prompt the user to save the document
ActiveDocument.Save
'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
'Outlook wasn't running, start it from code
If Err 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.to = "" 'Insert an email address if all messages go to the same
address
'Set the recipient for a copy if required
.BCC = ""
.Subject = "This is the subject"
'Add the document as an attachment, you can use the _
.displayname property
'to set the description that's used in the message
.Attachments.Add Source:=ActiveDocument.FullName, _
Type:=olByValue, DisplayName:="Document as attachment"
.Display
End With
'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub



"trickymom" wrote in message
...
When I send an email directly from Word or Excel my signature doesn't
automatically populate like it does in Outlook. Is there any way I can
get
it to populate automatically? I have two outlook accounts that I switch
back
and forth from and I can never tell which one I am sending email from.



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 07:38 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.