Email copy and paste everynight at a certain time ?

[zone709]

Hi what I am trying to do is. I want to leave my excel book open and outlook open. Everynight if possible I want to run this macro below paste it to a new email with email address example: JOhnl.com; and send it a like 3:45 AM eastern time. Then close the book dfgdrg.xlsx possible?

Sub Mac()
ChDir "C\Users\Documents\16-Jun\06-29-2016

Workbooks.OpenFilename:=_

"C:\Users\Documents\16-Jun\06-29-2016\dfgdrg.xlsx"

Range("A1:H4).copy

End Sub()

 

[baitmaster]

application.ontime

http://www.snb-vba.eu/VBA_Application.OnTime_en.html

 

[zone709]

application.ontime

http://www.snb-vba.eu/VBA_Application.OnTime_en.html

ok this is good and will look at this in a little bit. I also need a little help of pasting that copy i did into outlook and add that email and hit send. Since i cant record it i need a little help with rest of vba code. Any help would be great thanks

 

[zone709]

hi can anyone help me finish this macro then i can test it using

application.ontime.

[LEFT][COLOR=#333333][FONT=monospace]Sub Mac()
ChDir "C\Users\Documents\16-Jun\06-29-2016

Workbooks.OpenFilename:=_

"C:\Users\Documents\16-Jun\06-29-2016\dfgdrg.xlsx"

Range("A1:H4).copy

End Sub()[/FONT][/COLOR][/LEFT]

This above opens book and copy's range.

The next step I need is to paste is to New email in outlook then add email address lets say johnl.com also in the subject "Numbers" and hit send. Once I get to this then I can test and try to get

application.ontime to work.

Any help would be great

Im not saying below is some of the answer, but I feel some of it makes sense if I have to open outlook and get that to work somehow.
​

​

    Workbooks(fileName).Activate
        
    Emails =
    LowerFileName = StrConv(fileName, vbLowerCase)
    
   
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .Display
    End With
    Signature = OutMail.HTMLBody
    With OutMail
        .To = Emails
        .Cc =
        .Subject = Numbers
        .Attachments.Add fpath
        .HTMLBody = Strategy & "<br /><br />" & Signature
  
End Sub

 

[zone709]

Hi anyone can help me on this. If i am not explainging it right. Ill try and explain it again thanks