VBA Send workbook via e-mail using Lotus Notes

[mssbass]

When I try to use the following code to send a specific workbook using Lotus Notes, the e-mail comes through but with no attachment. Any ideas?

Sub SendWithLotus()
Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim obAttachment As Object, EmbedObject As Object
Dim stSubject As Variant, stAttachment As String
Dim vaRecipient As Variant, vaMsg As Variant

Const EMBED_ATTACHMENT As Long = 1454
Const stTitle As String = "Active workbook status"
Const stMsg As String = "The active workbook must first be saved " & vbCrLf _
& "before it can be sent as an attachment."
'Get the name of the recipient from the user.
vaRecipient = "Amy_E_Jones@nf.org"
vaMsg = "Here's a list of employees on long term. Please look for any doubling opportunities."
stSubject = "Monthly Medical Billet Report"
'Retrieve the path and filename of the active workbook.
stAttachment = "\\H\temp\00.xls"
'Instantiate the Lotus Notes COM's Objects.
Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")
'If Lotus Notes is not open then open the mail-part of it.
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
'Create the e-mail and the attachment.
Set noDocument = noDatabase.CreateDocument
Set obAttachment = noDocument.CreateRichTextItem("stAttachment")
Set EmbedObject = obAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)
'Add values to the created e-mail main properties.
With noDocument
.Form = "Memo"
.SendTo = vaRecipient
.Subject = stSubject
.Body = vaMsg
.SaveMessageOnSend = True
End With
'Send the e-mail.
With noDocument
.PostedDate = Now()
.Send 0, vaRecipient
End With

'Release objects from the memory.
Set EmbedObject = Nothing
Set obAttachment = Nothing
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing

'Activate Excel for the user.
AppActivate "Microsoft Excel"
MsgBox "The e-mail has successfully been created and distributed.", vbInformation
End Sub

 

[Kenneth Hobson]

Please paste code between code tags. Type them or click the # icon on a message toolbar.

1. The file does not exist
or
2. The "\" format is not allowed.

Try putting the file in a local drive.

 

[mssbass]

I'm not sure what you mean? paste code between code tags? If the "" format is not allowed, how do I tell it where to go to get the attachment?