SEND

[Aaron Neunz]

I have created a Word 2003 form. I would like to develop a simple Macro
that emails this Word form, as an attachment, to a distribution list (or
individual recipients). I use an Exchange 2003 server.
Any links or suggestions to get me started would be appreciated.

Aaron Neunz

 

[Jean-Guy Marcil]

Aaron Neunz was telling us:
Aaron Neunz nous racontait que :

I have created a Word 2003 form. I would like to develop a simple
Macro that emails this Word form, as an attachment, to a distribution
list (or individual recipients). I use an Exchange 2003 server.
Any links or suggestions to get me started would be appreciated.

Aaron Neunz

See
http://word.mvps.org/faqs/interdev/SendMail.htm
to get you started.

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Aaron Neunz]

This code is working great except the displayname property.
Even though I am setting this property it is not appearing as the message
body when the email is sent.

 

[Jean-Guy Marcil]

Aaron Neunz was telling us:
Aaron Neunz nous racontait que :

This code is working great except the displayname property.
Even though I am setting this property it is not appearing as the
message body when the email is sent.

Can you post the exact code you are using?

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Aaron Neunz]

Yes it is:

Sub SendPollingPlaceChangeFormAsAttachment()
'
' PollingPlaceChangeForm Macro
' Macro created 9/28/2005 by Aaron Neunz

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next

If Len(ActiveDocument.Path) = 0 Then
MsgBox "Document needs to be saved first"
Exit Sub
End If

Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
.To = "(e-mail address removed)"
.Subject = "A POLLING LOCATION HAS BEEN CHANGED"
'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"
.Send
End With

If bStarted Then
oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub

Also, say I create a new document from my template project. I save this
Word document with a filename and send it via email to another user. I do
not want them to have the ability to click on the macro toolbar button
referencing this code. How can I remove the reference to the template in
the new document?
Thanks

 

[Jean-Guy Marcil]

Aaron Neunz was telling us:
Aaron Neunz nous racontait que :

Yes it is:

Sub SendPollingPlaceChangeFormAsAttachment()
'
' PollingPlaceChangeForm Macro
' Macro created 9/28/2005 by Aaron Neunz

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next

If Len(ActiveDocument.Path) = 0 Then
MsgBox "Document needs to be saved first"
Exit Sub
End If

Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
.To = "(e-mail address removed)"
.Subject = "A POLLING LOCATION HAS BEEN CHANGED"
'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"
.Send
End With

If bStarted Then
oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub

Also, say I create a new document from my template project. I save
this Word document with a filename and send it via email to another
user. I do not want them to have the ability to click on the macro
toolbar button referencing this code. How can I remove the reference
to the template in the new document?
Thanks

Your code looks fine.
I think that there is some misunderstanding regarding what DisplayName does.
It adds a label tot he attachment, not text in the email body.
Instead of ".Send" in the code, use ".Display". Then, whit the message on
screen, from the Format menu in Outlook, change the email to "Plain Text,"
then to "RTF." The attachment should wind up at the bottom of the message in
the email body space. Right click on it and select "Properties." You will
see that your DisplayName is indeed there, in the Label field.

As for your second question, if you create a document from a template, and
then send the document, not the template, the recipient will not have the
code. Unlike Excel, when you create a document from a template, the code
stays in the template.


--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org