Vba macro help

[agoodson1956]

I don't know anything about VBA.

I have a TAB called Christina

I need to have this tab "Christina" automatically email to Christina every Thursday morning the report on this tab.

Can anyone put this together?

 

[agoodson1956]

I Changed the TAB name from Christina to Weekly. I hope there is someone that can help with this?

 

[baldi]

I Changed the TAB name from Christina to Weekly. I hope there is someone that can help with this?

try this.

[FONT=Calibri][SIZE=3][COLOR=#000000]ChristinaWeekly Macro[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]'[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   Sheets("Weekly").Select[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   Sheets("Weekly").Copy[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   ActiveWorkbook.SaveAs Filename:= _[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]       "C:\Weekly.xlsx", FileFormat:=xlOpenXMLWorkbook _[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        ,CreateBackup:=False[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    ActiveWindow.Close[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Subemail_concept_attachments_add()[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    WithCreateObject("Outlook.Application").CreateItem(0)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    .Subject ="Christina Weekly"[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    .To ="aaa@webforums.eu"[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    .attachments.Add"C:\Desktop\Weekly.xlsx"[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    .Save[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    [/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End With[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

replace the path to where you saved your file on the macro. this will save a draft of the email in Outlook.
hope this helps

 

[agoodson1956]

Will this automatically send out every Thursday?

 

[baldi]

No.
It gets saved in your draft folder in Outlook. You will have to go in there and send it manually. Also don't forget to replace the email here.

.To ="aaa@webforums.eu"
​

with Christina's