Pls Help

[Ravinder Kumar]

HI All,

I have below script and i am using Outlook 2007. now i want to add mail sent from id. Pls help.

Sub Broadcaster()
Set Sourcewb = ActiveWorkbook
Set Destwb = ActiveWorkbook
Set Destwb = ActiveWorkbook
TempFilePath = "D:\RAVINDER" & "\"
TempFileName = "EMP.xls"
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With Destwb
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "" & Format(Now() - 10, "mmm-yyyy") & ""

Ravinder

 

[Ruddles]

<deleted>