Deepak1685
New Member
- Joined
- Jun 29, 2019
- Messages
- 1
Hello Team,
Kindly help on with below VBA Codes which needs to select multiple date range and to include default outlook signature
There 2 chaser in column b & c, both the date are same but will have different attachment. Based on column A date chasers to send email automatically
<colgroup><col width="116" style="width: 87pt; mso-width-source: userset; mso-width-alt: 4242;">
<col width="64" style="width: 48pt;" span="2">
<tbody>
</tbody>
Sub email()
Dim myOutlook As Object
Dim myMailItem As Object
Dim FName As String
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
FName = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
With otlNewMail
.To = ""
.cc = ""
.Subject = "Test"
.Body = "Test"
.Attachments.Add ("H:\jpmDesk\Desktop\0806.txt")
.DeferredDeliveryTime = Range("A1") (Here need the code to select multiple date range)
.send
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub
Kindly help on with below VBA Codes which needs to select multiple date range and to include default outlook signature
There 2 chaser in column b & c, both the date are same but will have different attachment. Based on column A date chasers to send email automatically
| A | B | C |
| Mismatch date | Chaser 1 | Chaser 2 |
| 6/29/19 7:09 AM | ||
| 6/29/19 5:44 AM | | |
| 6/29/19 5:45 AM |
Sub email()
Dim myOutlook As Object
Dim myMailItem As Object
Dim FName As String
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
FName = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
With otlNewMail
.To = ""
.cc = ""
.Subject = "Test"
.Body = "Test"
.Attachments.Add ("H:\jpmDesk\Desktop\0806.txt")
.DeferredDeliveryTime = Range("A1") (Here need the code to select multiple date range)
.send
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub
