need to email hyperlink (filepath) from word doc

jackj22 · #7 05-29-2012, 09:12 AM

This was extremely helpful. Thank you!

Using this your sample code plus some others, I am able to successfully execute doing the following:

PHP Code:


			
Private Sub CommandButton1_Click()

Dim bStarted As Boolean

'Dim oOutlookApp As Outlook.Application

'Dim oItem As Outlook.MailItem

' Check if Outlook is running.  If it is not, start Outlook

On Error Resume Next

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

    .Subject = "A/I: " & ActiveDocument.Name

    .Body = "<" & "File://" & ActiveDocument.FullName & ">"

    .To = "person1"

    .Cc = "the boss"

    .Importance = 2

    .Send

    '.Display

  End With

'  Close Outlook if it was started by this macro.

If bStarted Then

    oOutlookApp.Quit

End If

'Clean up

Set oItem = Nothing: Set oOutlookApp = Nothing



End Sub

For some reason, I got a debug error on:

PHP Code:


			
'Dim oOutlookApp As Outlook.Application

'Dim oItem As Outlook.MailItem

..which is why I skip them. Any idea why? The code works fine as long as Outlook is open. For now, I've told my folks to make sure Outlook is open, otherwise it won't work.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hyperlink to direct email	JaHoffman	Word	5	07-05-2012 08:09 AM
Word macro to email hyperlink	pooley343	Word VBA	0	07-20-2011 01:48 AM
Hyperlink to attached file in email message	spino	Outlook	0	08-05-2010 05:56 AM
cannot access hyperlink in email	mdrvo	Outlook	1	05-31-2010 12:35 PM
Cannot hyperlink from an email	karen1430	Outlook	0	11-25-2007 03:54 PM