See if It help,, Edit Macro According to your requirement..
Public Sentmag As String
Sub SenDmail()
Dim outLookApp As Object
Set outLookApp = CreateObject("Outlook.application")
Dim FileName As String
Dim Data As Integer
Dim Msg As String
Dim mitem As Object
Dim Sign As String
Dim recp As String
Dim msglp As Integer
Dim sigLp As Integer
Dim cell As Range
For Each cell In Range("Range")
Msg = "Dear " & cell.Offset(0, 9).Value
Msg = Msg & vbCrLf & " Please find the below mention Complaint Which is
showing open Status in DFR , At this site Temperaute is going above 35," & _
" I Request you to please repair this Ac , if it is not capable to maintaint
temperatue then Please Provide the SME Certificate for further Action"
Msg = Msg & vbCrLf & "Indus ID=" & cell.Offset(0, 2).Value
Msg = Msg & vbCrLf & "Complaint No =" & cell.Offset(0, 1) & vbCrLf & "Site
Name =" & cell.Offset(0, 3).Value & vbCrLf & "Equipment =AC/" &
cell.Offset(0, 4).Value
Msg = Msg & vbCrLf & "Technician/SUpervisor Contact No =" & cell.Offset(0,
7).Text & vbCrLf & "Complaint =" & cell.Offset(0, 8).Text
Msg = Msg & vbCrLf & "Regards" & vbCrLf & "Rajan Verma"
Set mitem = outLookApp.createitem(OlMailitem)
With mitem
.To = cell.Offset(0, 10).Text
.Subject = "AC problem of " & cell.Offset(0, 3).Text
.Body = Msg
End With
mitem.Send
Next
outLookApp.Quit
Set outLookApp = Nothing
MsgBox "Mail Has been Sent ", vbInformation
End Sub
On Fri, May 6, 2011 at 4:07 PM, Jitheesh Vazhapully <7jit...@gmail.com>wrote:
> Hello Experts,
>
> I'm looking for an macro to send an email on a specific date, We can run
> the macro daily and I want it to compare todays date with the deadline and
> in case it matches, the excel should shoot an email.
>
> I have mentioned the details in the excel sheet.
>
> Please advice if this is possible
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
Regards
Rajan verma
+91 9158998701
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
