Hi again everyone,
i have this working code:
i want a simple modification, i want my page sheet4 to be cut and paste in the body of the email code. is there a simple way of doing so?![]()
Sub emailtotal() Dim Ol As Outlook.Application Dim OlMail As MailItem Set Ol = New Outlook.Application Set OlMail = Ol.CreateItem(olMailItem) With OlMail .To = "email@email.com" .Subject = "help desk tracker date: " .Display End With End Sub
Bookmarks