Excel 시트를 사용하여 메일 보내기로 행복한 Birhtday 소원

문제 정의

나는 회원의 세부 사항이 생년월일과 이메일 아이디와 함께 기록되는 엑셀 시트를 가지고있다. 생일 축하 해요. 우편으로 보내주세요. 이 때마다 나는 시트를 확인하여 오늘의 날짜를 필터링 한 다음 개별적으로 메일을 보내야합니다.

이 매크로는이 작업을 도와줍니다. 엑셀 시트를 열고 매크로를 실행해야합니다.

암호

C 열에있는 사람 이름을 가정 해 보겠습니다.

D 열의 생년월일,

E 열의 전자 메일 ID

 Sub (Out) OutAppApplication = CreateObject ( "Outlook.Application") OutApp.Session.Logon lastRow = Range ( " A "& Rows.Count) .End (xlUp) .Row On Error GoTo 정리 범위 ("D2 : D "& lastRow)의 각 셀 For dateCell = cell.Value Day (dateCell) = Day (Date) dateCell) = Month (Date) 그런 다음 OutMail = OutApp.CreateItem (0)을 OutMail에서 다음으로 다시 시작합니다 .To = cell.Offset (0, 1) .Value .Subject = "Happy Birthday" '메시지를 넣습니다 .Body = "친애하는"& 셀 (cell.Row, "C"). 가치 _ & vNewLine & vbNewLine & _ "오늘의 많은 행복한 회식"_ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "건배"& vbNewLine & _ "Rahul".end End With Error GoTo 0 Set OutMail = 끝 없음 If 다음 셀 정리 : Set OutApp = Nothing Application.ScreenUpdating = True End Sub