Modifying Code to Send E-mail

[Justinian]

I have a daily report I need to send to my manager. Right now, my report has code to copy A1:F30 so I can paste the data into an e-mail. How do I modify this code so that I only copy rows with data instead of A1:F30?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Send_Email()
On Error Resume Next
Dim OutApp As Object
Dim OutMail As Object
Dim objNsp As Object
Dim colSyc As Object
Dim objSyc As Object
Dim i As Integer[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif] Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set objNsp = appOL.Application.GetNamespace("MAPI")
Set colSyc = objNsp.SyncObjects[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif] On Error Resume Next
With OutMail
.To = "john.smith@aol.com"
.Subject = "Daily Report - " & Format(Date, "mm/dd/yy")
.Display
' .Display ' to open a mail window with a normal 'SEND' icon available'
' .Send ' to send without displaying mail

Range("A1:F30").Select
Selection.Copy

End With[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif] For i = 1 To colSyc.Count
Set objSyc = colSyc.Item(i)
objSyc.Start
Next[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif] On Error GoTo 0[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
Set OutMail = Nothing
Set objNsp = Nothing
Set colSyc = Nothing
Set objSyc = Nothing
Set OutApp = Nothing[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]aa:
End Sub[/FONT][FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
[/FONT]

 

[keiranwyllie]

Re: Help Modifying Code to Send E-mail

Thanks Worf. I probably shouldn't have appeared to hijack the thread so I'll move my question to a new thread and refer to this one.

Cheers.

Justin

You can have only one routine with that name, use the version from post 25.

Keiran

I will work on your request as soon as the OP‘s query is solved.

Re posted https://www.mrexcel.com/forum/excel-questions/1105936-vba-send-email-sheet-within-new-email.html

 

[Justinian]

Re: Help Modifying Code to Send E-mail

I do only have that one routine and did use the post from 25.

 

[Worf]

Re: Help Modifying Code to Send E-mail

I understand you are still getting the ambiguous name error, it is duplicated somewhere on the workbook.
Try changing the routine name to something completely different. If trouble persists, please provide more details.

 

[Justinian]

Re: Help Modifying Code to Send E-mail

Ok, that helped and the code is working now.

Thank you for all your hard work!