P
pswanie
i use this code from ron's
how can i get the current date and time from the system to go in the subject
line?
----------------------------------------------------------------------------------------------
i need something like
.Subject = "inventory movement for 13/02/08 21:08pm"
-----------------------------------------------------------------------------------------------
Set rng = Sheets("data capture").UsedRange
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)
.display 'or use .Send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
how can i get the current date and time from the system to go in the subject
line?
----------------------------------------------------------------------------------------------
i need something like
.Subject = "inventory movement for 13/02/08 21:08pm"
-----------------------------------------------------------------------------------------------
Set rng = Sheets("data capture").UsedRange
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)
.display 'or use .Send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With