concreteinterface
Board Regular
- Joined
- Jul 10, 2008
- Messages
- 144
I am trying to make multiple reminders in Outlook for phasing of projects. Here is what I have so far:
As you can see the meat of my information is in the 61 row. I am trying to get this to do 9 other rows.
Hopefully this will shed some light:
<tbody>
</tbody>
Thanks.
Code:
Sub PhaseReminder() Dim appOL As Object
Dim objReminder As Object
Sheets("MBC").Select
Set appOL = GetObject(, "Outlook.application")
Set objReminder = appOL.CreateItem(1) ' olAppointmentItem
'Set objReminder = objOA.CreateItem(olTaskItem) 'Creates a task item
objReminder.Start = Range("D61") ' 4/Feb/2004 18:30
objReminder.Duration = Range("F61") ' 30
objReminder.Subject = Range("B61") ' subject text
objReminder.Location = Range("G61") ' Location of the project
objReminder.BusyStatus = olFree ' Sets your calander to show that you are Free and not Busy
objReminder.Body = "Date/time created: " & Format(Date, "mm-dd-yy") & " " & Time & vbNewLine & vbNewLine & _
Range("A100") & vbNewLine & vbNewLine & _
"PROJECT INFORMATION (This information was created at the time the phasing reminder was executed and may not be up-to-date!):" & vbNewLine & _
Range("D12") & vbNewLine & Range("D13") & vbNewLine & Range("D14") & vbNewLine & Range("D15") & vbNewLine & vbNewLine & _
Range("D16") & vbNewLine & Range("D17") & vbNewLine & vbNewLine & _
Range("D18") & vbNewLine & Range("D19") & vbNewLine & Range("D20") & vbNewLine & Range("D21") & vbNewLine & Range("D22") & vbNewLine & _
Range("D23") & vbNewLine & Range("D24") & vbNewLine & Range("D25") & vbNewLine & Range("D26") & vbNewLine & Range("D27") & vbNewLine & _
Range("D28") & vbNewLine & Range("D29") & vbNewLine & Range("D30") & vbNewLine & Range("D31") & vbNewLine & Range("D32") & vbNewLine & _
Range("D33") & vbNewLine & Range("D34") & vbNewLine & Range("D35") & vbNewLine & Range("A5")
'objReminder.Categories = "Acc - 1st Report"
'objReminder.Subject = "Equipment: " & colControls("txtFullName").Value & " " & colControls("txtDateReception").Value
'objReminder.To = Range("H61")
'objReminder.StartDate = DateAdd("n", 1, Now)
'objReminder.DueDate = DateAdd("n", 3, Now)
'objReminder.ReminderTime = DateAdd("n", 1, Now)
objReminder.ReminderSet = True
objReminder.Save
Sheets("Options").Select
End Sub
As you can see the meat of my information is in the 61 row. I am trying to get this to do 9 other rows.
Hopefully this will shed some light:
Phase | Description | Manpower | Start | End | ||
Date | ||||||
1 | Phase 1 | 2 | 4/12/2014 | 7:00:00 AM | 4/16/2014 | 3:30:00 PM |
2 | ||||||
3 | ||||||
4 | ||||||
5 | ||||||
6 | ||||||
7 | ||||||
8 | ||||||
9 | ||||||
10 |
<tbody>
</tbody>
Thanks.