Alex <Alex@discussions.microsoft.com> was very recently heard to utter:

Are you exporting the publication to a web page to get the links to be
active?  If you are, no VB code will transfer.
Most users will want to use their own email client, really.

If you use the code you mentioned, it will require Outlook.  There is code
available by searching Google that allows you to send email from any VB
application.  This, however, would not be appropriate in this instance.

I'm very confused as to why you actually want to use a varible twice to set
it two different times..  Makes no sense to me.  Are you wanting to use
Early or Late binding?  You're showing signs of both.  And as for what Ed
mentions, you do need to know what email app your clients are using.  An
example of what you could use if you didn't know, is shown here ...

Word: http://vbaexpress.com/kb/getarticle.php?kb_id=310
Excel: http://vbaexpress.com/kb/getarticle.php?kb_id=311

The only difference being in the bottom portion of the code ...

Sub eMailActiveDocument()
   Dim Doc As Document

   Application.ScreenUpdating = False
   Set Doc = ActiveDocument
   Doc.Save

   SendIt "me@here.com", "A new Document", "Hi, read this:", Doc.FullName

   Application.ScreenUpdating = True
   Set Doc = Nothing
End Sub.. and ..
Sub eMailActiveWorkbook()
   Dim Wb As Workbook

   Application.ScreenUpdating = False
   Set Wb = ActiveWorkbook
   Wb.Save

   SendIt "me@here.com", "A new Document", "Hi, read this:", Wb.FullName

   Application.ScreenUpdating = True
   Set Wb = Nothing
End SubI believe the Word code should work for you in Publisher.  (Ed,
please correct me if I'm wrong.)

HTH