Send current Excel workbook as Attachment Macro

[Vbalearner85]

Hi,

I have below Macro which I am using to send current excel workbook as attachment from gmail via outlook.

Macro is working as expected with the issue of not attaching the file ( as the file is more than 100 mb and would be sent as Google drive link)

Any help would be appreciated as to how to send large file


Sub SendWorkBook()
'Update 20131209
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte feature"
.Body = "Hello, please check and read this document, thank you."
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

 

[Lee J]

Hi,

I think the only way you are going to be able to do this is to split the file over 4 emails - Gmail will only allow attachments up to 25mb in total.

Another option would be to compress the file but I'm not sure how big the file would still be.

 

[Vbalearner85]

If I directly attach the file in gmail..it does upload in GoogleDrive and send send mail as attachment(which is google link) ..but macro does not do that..just thinking..what needs to be modified

 

[Lee J]

I understand but what you are asking Excel to do is open GoogleDrive save the document to it and then copy a 'share with' link to include in the email - Sorry but I don't believe you are going to get a macro to do that

 

[Lee J]

Ok so you might be able to do the save part of this with the google API , not got time to look at the moment though

 

[Vbalearner85]

Thanks lee for teh suggestions..will look if something works

 

[Larry Haydn]

You can send it manually via:
WeTransfer.com
Allows up to 2GB.

 

[Vbalearner85]

I finally managed to find a round about and have used Google sync folder on my system to backup only particular folder,,where this file is saved everyday..