Attach documents from sharepoint to email along with To,cc, & email body from excel file

[darshank123]

Hi,

Am looking for some code where it will fetch and attach files directly form sharepoint to outloook email(2013) with other fields like To,cc and email body as well and it has to fecthc these details from excel file.

Am using sharepoint portal.Please help with this.

 

[darshank123]

Hi

Here is the code which displays email but not attaching file Test.xlsx from sharepoint portal to email

can you please help me with this.

Sub sharepoint()
'
' sharepoint Macro
'

Dim OutApp
Dim OutMail As Outlook.MailItem
Dim ExtAttach, EVMmail As String
'Sheets("Macro Run Controls").Select
ExtAttach = "https://xxxxxx.sharepoint.com/sites/xxxxxx/Library/Faci templates/test.xlsx"
'EVMmail = C:\Location of saved email template
'Create the external manager email

Set OutApp = CreateObject("Outlook.Application")
On Error Resume Next
Set OutMail = OutApp.CreateItem(0)
With OutMail
' .SentOnBehalfOfName = ""
.To = ""
.CC = ""

StrFile = Dir(ExtAttach & "*.*")

'Do While Len(StrFile) > 0
.Attachments.Add ExtAttach & StrFile
StrFile = Dir
'Loop

.Display 'or use .Send
End With
On Error GoTo 0

End Sub