Office excel & outlookClosed

Question

Hello jim, 

"I have a Excel Sheet in which details of member are recorded with there Date of Birth and e-mail id. and I want to wish them on there Birthday by mail. for this every time i have to check the sheet filter them for today's date and then send the mail individually. 

This Macro helps you to do this for you. You have to just open your excel sheet and run the macro. "

The code given by you works, but is there any way to send the mails from common mail id, instead of the personel mail id.

Pls help..... 
Configuration: Windows 7 / Internet Explorer 8.0

rizvisa1 · Answer

Who is "jim" and what macro? what is "common mail id"

try some thing like this 
where you have .TO etc, add this line 

.SentOnBehalfOfName = "email address here"

bala1234 · Answer

Actually I am trying to send automated birthday wishes to my team members, we worked wiith a excel macro program, Jim helped me through net, but it helps me to send the birthday message, but From id is my personal id, instead of that I want to use some common mail id. Can you help me on that? 

code given as follows, 

Sub BD() 
Dim OutApp As Object 
Dim OutMail As Object 
Dim cell As Range 
Dim lastRow As Long 
Dim dateCell As Date 

Application.ScreenUpdating = False 
Set OutApp = CreateObject("Outlook.Application") 
OutApp.Session.Logon 
lastRow = Range("D" & Rows.Count).End(xlUp).Row 
On Error GoTo cleanup 
For Each cell In Range("D2:D" & lastRow) 
dateCell = cell.Value 
If Day(dateCell) = Day(Date) And Month(dateCell) = Month(Date) Then 
Set OutMail = OutApp.CreateItem(0) 
On Error Resume Next 
With OutMail 
.To = cell.Offset(0, 1).Value 
.Subject = "Happy Birthday" 
' Here put your Message 
.Body = "Dear " & Cells(cell.Row, "C").Value _ 
& vbNewLine & vbNewLine & _ 
"Many Happy Returns of the Day " _ 
& vbNewLine & vbNewLine _ 
& vbNewLine & vbNewLine & _ 
"Cheers," & vbNewLine & _ 
"Team" 
.send 
End With 
On Error GoTo 0 
Set OutMail = Nothing 
End If 
Next cell 
cleanup: 
Set OutApp = Nothing 
Application.ScreenUpdating = True 

End Sub

Office excel & outlook

2 replies

Subscribe To Our Newsletter!