I hope I'm asking this question in the right forum. I would like to know if
it is possible to create a basic spreadsheet where one of the columns is for
due date and when that due date comes up a reminder is generated from
Outlook? I think I understood correctly from a Google search that it can be
done in Visual Basic but I have no idea how to do it. I'm also hoping it
would not be complicated b/c I have not used VB. If that can't be done, how
could I work it that the cell would change to red with due date comes?
Thanks.

A little more info on the spreadsheet I want to create. We receive
corrrespondence from another unit that has a due date. This correspondence
is referred to an attorney in my unit. When the due date comes, I would like
to have an Outlook reminder sent to myself and the individual it was assigned
to. My column headers would be:
ID#
Name of constituent
Address (if applicable)
Date referred
Assigned to
Due date

Thanks.

"Andee39" wrote:

> I hope I'm asking this question in the right forum. I would like to know if
> it is possible to create a basic spreadsheet where one of the columns is for
> due date and when that due date comes up a reminder is generated from
> Outlook? I think I understood correctly from a Google search that it can be
> done in Visual Basic but I have no idea how to do it. I'm also hoping it
> would not be complicated b/c I have not used VB. If that can't be done, how
> could I work it that the cell would change to red with due date comes?
> Thanks.

Yes, it can

1. press ALT+F11 to get to the VBA
2. select Tools->References and scroll down to check relevant version
of Microsoft Outlook Object Library, click OK to install it
3. press Insert->Module
4. paste this macro there

the macro loops all cells in F2:F1000 range looking for non-blanks,
creating e-mails w/o sending them (to send an e-mail automatically
uncheck the '.Send row). if you want to send an e-mail you will have
to click YES on alerts to confirm you really want to send it cause I
couldn't find the way to turn those alerts off

try the macro with your data and let me know if it's ok for you


for more you might look at www.outlookcode.com


Sub cus()
Dim outl As Outlook.Application
Dim remindd As Outlook.MailItem

Set outl = New Outlook.Application
Set remindd = Outlook.CreateItem(olMailItem)


For i = 2 To 1000
If Len(Cells(i, 6)) > 0 Then
If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
Day(Now())) Then
With remindd
.Display
.To = Cells(i, 6).Offset(0, -1)
.CC = "(E-Mail Removed)"
.Subject = "REMINDER: Today is the due date for " &
Cells(i, 1)
.Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
'.Send
End With
End If
End If
Next i

Set remindd = Nothing
Set outl = Nothing

End Sub



On 26 Kwi, 20:01, Andee39 <Ande...@discussions.microsoft.com> wrote:
> A little more info on the spreadsheet I want to create. Â*We receive
> corrrespondence from another unit that has a due date. Â*This correspondence
> is referred to an attorney in my unit. Â*When the due date comes, I would like
> to have an Outlook reminder sent to myself and the individual it was assigned
> to. Â*My column headers would be:
> ID#
> Name of constituent
> Address (if applicable)
> Date referred
> Assigned to
> Due date
>
> Thanks.
>
>
>
> "Andee39" wrote:
> > I hope I'm asking this question in the right forum. Â*I would like to know if
> > it is possible to create a basic spreadsheet where one of the columns is for
> > due date and when that due date comes up a reminder is generated from
> > Outlook? Â*I think I understood correctly from a Google search thatit can be
> > done in Visual Basic but I have no idea how to do it. Â*I'm also hoping it
> > would not be complicated b/c I have not used VB. Â*If that can't bedone, how
> > could I work it that the cell would change to red with due date comes? Â*
> > Thanks.- Ukryj cytowany tekst -
>
> - Pokaż cytowany tekst -

corrected (sorry)

Sub cus()
Dim outl As Outlook.Application
Dim remindd As Outlook.MailItem

Set outl = New Outlook.Application


For i = 2 To 1000
If Len(Cells(i, 6)) > 0 Then
If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
Day(Now())) Then
Set remindd = Outlook.CreateItem(olMailItem)
With remindd
.Display
.To = Cells(i, 6).Offset(0, -1)
.CC = "(E-Mail Removed)"
.Subject = "REMINDER: Today is the due date for " &
Cells(i, 1)
.Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
.Send
End With
End If
End If
Next i

Set remindd = Nothing
Set outl = Nothing

End Sub


On 27 Kwi, 11:13, Jarek Kujawa <bli...@gazeta.pl> wrote:
> Yes, it can
>
> 1. press ALT+F11 to get to the VBA
> 2. select Tools->References and scroll down to check relevant version
> of Microsoft Outlook Object Library, click OK to install it
> 3. press Insert->Module
> 4. paste this macro there
>
> the macro loops all cells in F2:F1000 range looking for non-blanks,
> creating e-mails w/o sending them (to send an e-mail automatically
> uncheck the '.Send row). if you want to send an e-mail you will have
> to click YES on alerts to confirm you really want to send it cause I
> couldn't find the way to turn those alerts off
>
> try the macro with your data and let me know if it's ok for you
>
> for more you might look atwww.outlookcode.com
>
> Sub cus()
> Dim outl As Outlook.Application
> Dim remindd As Outlook.MailItem
>
> Set outl = New Outlook.Application
> Set remindd = Outlook.CreateItem(olMailItem)
>
> For i = 2 To 1000
> Â* Â* If Len(Cells(i, 6)) > 0 Then
> Â* Â* Â* Â* If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> Day(Now())) Then
> Â* Â* Â* Â* Â* Â* With remindd
> Â* Â* Â* Â* Â* Â* Â* Â* .Display
> Â* Â* Â* Â* Â* Â* Â* Â* .To = Cells(i, 6).Offset(0, -1)
> Â* Â* Â* Â* Â* Â* Â* Â* .CC = "m...@sth..com"
> Â* Â* Â* Â* Â* Â* Â* Â* .Subject = "REMINDER: Today is the due date for " &
> Cells(i, 1)
> Â* Â* Â* Â* Â* Â* Â* Â* .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> Â* Â* Â* Â* Â* Â* Â* Â* '.Send
> Â* Â* Â* Â* Â* Â* End With
> Â* Â* Â* Â* End If
> Â* Â* End If
> Next i
>
> Set remindd = Nothing
> Set outl = Nothing
>
> End Sub
>
> On 26 Kwi, 20:01, Andee39 <Ande...@discussions.microsoft.com> wrote:
>
>
>
> > A little more info on the spreadsheet I want to create. Â*We receive
> > corrrespondence from another unit that has a due date. Â*This correspondence
> > is referred to an attorney in my unit. Â*When the due date comes, Iwould like
> > to have an Outlook reminder sent to myself and the individual it was assigned
> > to. Â*My column headers would be:
> > ID#
> > Name of constituent
> > Address (if applicable)
> > Date referred
> > Assigned to
> > Due date
>
> > Thanks.
>
> > "Andee39" wrote:
> > > I hope I'm asking this question in the right forum. Â*I would like to know if
> > > it is possible to create a basic spreadsheet where one of the columnsis for
> > > due date and when that due date comes up a reminder is generated from
> > > Outlook? Â*I think I understood correctly from a Google search that it can be
> > > done in Visual Basic but I have no idea how to do it. Â*I'm also hoping it
> > > would not be complicated b/c I have not used VB. Â*If that can't be done, how
> > > could I work it that the cell would change to red with due date comes? Â*
> > > Thanks.- Ukryj cytowany tekst -
>
> > - Pokaż cytowany tekst -- Ukryj cytowany tekst -
>
> - Pokaż cytowany tekst -

Thank you so very much for your help. I really appreciate it and I apologize
for any silly questions I might ask. This is out of my league.
Before I go ahead with the macro I have a few more questions:
- you stated that the macro loops all cells in F2:F1000 range. Does that
mean that my column headers/information needs to be in that range? That
seems rather odd.
- you mention to send an email automatically I will have to uncheck the
'.Send row. I don't see a check - will that appear automatically after
pasting the macro?
- you mention if I want to send an email I will have to click YES on alerts.
I don't see anything mentioned in the macro about alerts. Where is that
located?
- if I want to have the email reminder sent automatically, where does the
macro get the email address(es) from?

Did I already apologize for all my questions ..........

"Jarek Kujawa" wrote:

> corrected (sorry)
>
> Sub cus()
> Dim outl As Outlook.Application
> Dim remindd As Outlook.MailItem
>
> Set outl = New Outlook.Application
>
>
> For i = 2 To 1000
> If Len(Cells(i, 6)) > 0 Then
> If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> Day(Now())) Then
> Set remindd = Outlook.CreateItem(olMailItem)
> With remindd
> .Display
> .To = Cells(i, 6).Offset(0, -1)
> .CC = "(E-Mail Removed)"
> .Subject = "REMINDER: Today is the due date for " &
> Cells(i, 1)
> .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> .Send
> End With
> End If
> End If
> Next i
>
> Set remindd = Nothing
> Set outl = Nothing
>
> End Sub
>
>
> On 27 Kwi, 11:13, Jarek Kujawa <bli...@gazeta.pl> wrote:
> > Yes, it can
> >
> > 1. press ALT+F11 to get to the VBA
> > 2. select Tools->References and scroll down to check relevant version
> > of Microsoft Outlook Object Library, click OK to install it
> > 3. press Insert->Module
> > 4. paste this macro there
> >
> > the macro loops all cells in F2:F1000 range looking for non-blanks,
> > creating e-mails w/o sending them (to send an e-mail automatically
> > uncheck the '.Send row). if you want to send an e-mail you will have
> > to click YES on alerts to confirm you really want to send it cause I
> > couldn't find the way to turn those alerts off
> >
> > try the macro with your data and let me know if it's ok for you
> >
> > for more you might look atwww.outlookcode.com
> >
> > Sub cus()
> > Dim outl As Outlook.Application
> > Dim remindd As Outlook.MailItem
> >
> > Set outl = New Outlook.Application
> > Set remindd = Outlook.CreateItem(olMailItem)
> >
> > For i = 2 To 1000
> > If Len(Cells(i, 6)) > 0 Then
> > If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > Day(Now())) Then
> > With remindd
> > .Display
> > .To = Cells(i, 6).Offset(0, -1)
> > .CC = "m...@sth..com"
> > .Subject = "REMINDER: Today is the due date for " &
> > Cells(i, 1)
> > .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > '.Send
> > End With
> > End If
> > End If
> > Next i
> >
> > Set remindd = Nothing
> > Set outl = Nothing
> >
> > End Sub
> >
> > On 26 Kwi, 20:01, Andee39 <Ande...@discussions.microsoft.com> wrote:
> >
> >
> >
> > > A little more info on the spreadsheet I want to create. We receive
> > > corrrespondence from another unit that has a due date. This correspondence
> > > is referred to an attorney in my unit. When the due date comes, I would like
> > > to have an Outlook reminder sent to myself and the individual it was assigned
> > > to. My column headers would be:
> > > ID#
> > > Name of constituent
> > > Address (if applicable)
> > > Date referred
> > > Assigned to
> > > Due date
> >
> > > Thanks.
> >
> > > "Andee39" wrote:
> > > > I hope I'm asking this question in the right forum. I would like to know if
> > > > it is possible to create a basic spreadsheet where one of the columns is for
> > > > due date and when that due date comes up a reminder is generated from
> > > > Outlook? I think I understood correctly from a Google search that it can be
> > > > done in Visual Basic but I have no idea how to do it. I'm also hoping it
> > > > would not be complicated b/c I have not used VB. If that can't be done, how
> > > > could I work it that the cell would change to red with due date comes?
> > > > Thanks.- Ukryj cytowany tekst -
> >
> > > - Pokaż cytowany tekst -- Ukryj cytowany tekst -
> >
> > - Pokaż cytowany tekst -
>
> .
>

1. no, you may choose a range of your own
2. by "check" I meant an apostrophe (sorry)
3. there is nothing on the alerts in the macro. when you rid of the a/
m apostrophe and try to run the macro you'll see the alert stating
sth. like "some software is trying to control your e-mail program..."
4. I have "told" the macro to look for email addresses one column to
the left of the column containing due date (in this case due dates are
stored in F2:1000, if change the range for due dates then the macro
will still/always look for email address one column to the left of
that new range).

HIH
pls click YES if it helped

On 27 Kwi, 20:21, Andee39 <Ande...@discussions.microsoft.com> wrote:
> Thank you so very much for your help. Â*I really appreciate it and I apologize
> for any silly questions I might ask. Â*This is out of my league.
> Before I go ahead with the macro I have a few more questions:
> - you stated that the macro loops all cells in F2:F1000 range. Â*Doesthat
> mean that my column headers/information needs to be in that range? Â*That
> seems rather odd.
> - you mention to send an email automatically I will have to uncheck the
> '.Send row. Â*I don't see a check - will that appear automatically after
> pasting the macro?
> - you mention if I want to send an email I will have to click YES on alerts.
> Â*I don't see anything mentioned in the macro about alerts. Â*Where is that
> located?
> - if I want to have the email reminder sent automatically, where does the
> macro get the email address(es) from?
>
> Did I already apologize for all my questions ..........
>
>
>
> "Jarek Kujawa" wrote:
> > corrected (sorry)
>
> > Sub cus()
> > Dim outl As Outlook.Application
> > Dim remindd As Outlook.MailItem
>
> > Set outl = New Outlook.Application
>
> > For i = 2 To 1000
> > Â* Â* If Len(Cells(i, 6)) > 0 Then
> > Â* Â* Â* Â* If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > Day(Now())) Then
> > Â* Â* Â* Â* Set remindd = Outlook.CreateItem(olMailItem)
> > Â* Â* Â* Â* Â* Â* With remindd
> > Â* Â* Â* Â* Â* Â* Â* Â* .Display
> > Â* Â* Â* Â* Â* Â* Â* Â* .To = Cells(i, 6).Offset(0, -1)
> > Â* Â* Â* Â* Â* Â* Â* Â* .CC = "m...@sth.com"
> > Â* Â* Â* Â* Â* Â* Â* Â* .Subject = "REMINDER: Today is the due date for " &
> > Cells(i, 1)
> > Â* Â* Â* Â* Â* Â* Â* Â* .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > Â* Â* Â* Â* Â* Â* Â* Â* .Send
> > Â* Â* Â* Â* Â* Â* End With
> > Â* Â* Â* Â* End If
> > Â* Â* End If
> > Next i
>
> > Set remindd = Nothing
> > Set outl = Nothing
>
> > End Sub
>
> > On 27 Kwi, 11:13, Jarek Kujawa <bli...@gazeta.pl> wrote:
> > > Yes, it can
>
> > > 1. press ALT+F11 to get to the VBA
> > > 2. select Tools->References and scroll down to check relevant version
> > > of Microsoft Outlook Object Library, click OK to install it
> > > 3. press Insert->Module
> > > 4. paste this macro there
>
> > > the macro loops all cells in F2:F1000 range looking for non-blanks,
> > > creating e-mails w/o sending them (to send an e-mail automatically
> > > uncheck the '.Send row). if you want to send an e-mail you will have
> > > to click YES on alerts to confirm you really want to send it cause I
> > > couldn't find the way to turn those alerts off
>
> > > try the macro with your data and let me know if it's ok for you
>
> > > for more you might look atwww.outlookcode.com
>
> > > Sub cus()
> > > Dim outl As Outlook.Application
> > > Dim remindd As Outlook.MailItem
>
> > > Set outl = New Outlook.Application
> > > Set remindd = Outlook.CreateItem(olMailItem)
>
> > > For i = 2 To 1000
> > > Â* Â* If Len(Cells(i, 6)) > 0 Then
> > > Â* Â* Â* Â* If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > > Day(Now())) Then
> > > Â* Â* Â* Â* Â* Â* With remindd
> > > Â* Â* Â* Â* Â* Â* Â* Â* .Display
> > > Â* Â* Â* Â* Â* Â* Â* Â* .To = Cells(i, 6).Offset(0, -1)
> > > Â* Â* Â* Â* Â* Â* Â* Â* .CC = "m...@sth..com"
> > > Â* Â* Â* Â* Â* Â* Â* Â* .Subject = "REMINDER: Today is the due date for " &
> > > Cells(i, 1)
> > > Â* Â* Â* Â* Â* Â* Â* Â* .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > > Â* Â* Â* Â* Â* Â* Â* Â* '.Send
> > > Â* Â* Â* Â* Â* Â* End With
> > > Â* Â* Â* Â* End If
> > > Â* Â* End If
> > > Next i
>
> > > Set remindd = Nothing
> > > Set outl = Nothing
>
> > > End Sub
>
> > > On 26 Kwi, 20:01, Andee39 <Ande...@discussions.microsoft.com> wrote:
>
> > > > A little more info on the spreadsheet I want to create. Â*We receive
> > > > corrrespondence from another unit that has a due date. Â*This correspondence
> > > > is referred to an attorney in my unit. Â*When the due date comes, I would like
> > > > to have an Outlook reminder sent to myself and the individual it was assigned
> > > > to. Â*My column headers would be:
> > > > ID#
> > > > Name of constituent
> > > > Address (if applicable)
> > > > Date referred
> > > > Assigned to
> > > > Due date
>
> > > > Thanks.
>
> > > > "Andee39" wrote:
> > > > > I hope I'm asking this question in the right forum. Â*I wouldlike to know if
> > > > > it is possible to create a basic spreadsheet where one of the columns is for
> > > > > due date and when that due date comes up a reminder is generated from
> > > > > Outlook? Â*I think I understood correctly from a Google search that it can be
> > > > > done in Visual Basic but I have no idea how to do it. Â*I'm also hoping it
> > > > > would not be complicated b/c I have not used VB. Â*If that can't be done, how
> > > > > could I work it that the cell would change to red with due date comes? Â*
> > > > > Thanks.- Ukryj cytowany tekst -
>
> > > > - Pokaż cytowany tekst -- Ukryj cytowany tekst -
>
> > > - Pokaż cytowany tekst -
>
> > .- Ukryj cytowany tekst -
>
> - Pokaż cytowany tekst -

send me an e-mail to (E-Mail Removed) and I'll mail you an example
workbook with that macro

On 27 Kwi, 20:21, Andee39 <Ande...@discussions.microsoft.com> wrote:
> Thank you so very much for your help. Â*I really appreciate it and I apologize
> for any silly questions I might ask. Â*This is out of my league.
> Before I go ahead with the macro I have a few more questions:
> - you stated that the macro loops all cells in F2:F1000 range. Â*Doesthat
> mean that my column headers/information needs to be in that range? Â*That
> seems rather odd.
> - you mention to send an email automatically I will have to uncheck the
> '.Send row. Â*I don't see a check - will that appear automatically after
> pasting the macro?
> - you mention if I want to send an email I will have to click YES on alerts.
> Â*I don't see anything mentioned in the macro about alerts. Â*Where is that
> located?
> - if I want to have the email reminder sent automatically, where does the
> macro get the email address(es) from?
>
> Did I already apologize for all my questions ..........
>
>
>
> "Jarek Kujawa" wrote:
> > corrected (sorry)
>
> > Sub cus()
> > Dim outl As Outlook.Application
> > Dim remindd As Outlook.MailItem
>
> > Set outl = New Outlook.Application
>
> > For i = 2 To 1000
> > Â* Â* If Len(Cells(i, 6)) > 0 Then
> > Â* Â* Â* Â* If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > Day(Now())) Then
> > Â* Â* Â* Â* Set remindd = Outlook.CreateItem(olMailItem)
> > Â* Â* Â* Â* Â* Â* With remindd
> > Â* Â* Â* Â* Â* Â* Â* Â* .Display
> > Â* Â* Â* Â* Â* Â* Â* Â* .To = Cells(i, 6).Offset(0, -1)
> > Â* Â* Â* Â* Â* Â* Â* Â* .CC = "m...@sth.com"
> > Â* Â* Â* Â* Â* Â* Â* Â* .Subject = "REMINDER: Today is the due date for " &
> > Cells(i, 1)
> > Â* Â* Â* Â* Â* Â* Â* Â* .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > Â* Â* Â* Â* Â* Â* Â* Â* .Send
> > Â* Â* Â* Â* Â* Â* End With
> > Â* Â* Â* Â* End If
> > Â* Â* End If
> > Next i
>
> > Set remindd = Nothing
> > Set outl = Nothing
>
> > End Sub
>
> > On 27 Kwi, 11:13, Jarek Kujawa <bli...@gazeta.pl> wrote:
> > > Yes, it can
>
> > > 1. press ALT+F11 to get to the VBA
> > > 2. select Tools->References and scroll down to check relevant version
> > > of Microsoft Outlook Object Library, click OK to install it
> > > 3. press Insert->Module
> > > 4. paste this macro there
>
> > > the macro loops all cells in F2:F1000 range looking for non-blanks,
> > > creating e-mails w/o sending them (to send an e-mail automatically
> > > uncheck the '.Send row). if you want to send an e-mail you will have
> > > to click YES on alerts to confirm you really want to send it cause I
> > > couldn't find the way to turn those alerts off
>
> > > try the macro with your data and let me know if it's ok for you
>
> > > for more you might look atwww.outlookcode.com
>
> > > Sub cus()
> > > Dim outl As Outlook.Application
> > > Dim remindd As Outlook.MailItem
>
> > > Set outl = New Outlook.Application
> > > Set remindd = Outlook.CreateItem(olMailItem)
>
> > > For i = 2 To 1000
> > > Â* Â* If Len(Cells(i, 6)) > 0 Then
> > > Â* Â* Â* Â* If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > > Day(Now())) Then
> > > Â* Â* Â* Â* Â* Â* With remindd
> > > Â* Â* Â* Â* Â* Â* Â* Â* .Display
> > > Â* Â* Â* Â* Â* Â* Â* Â* .To = Cells(i, 6).Offset(0, -1)
> > > Â* Â* Â* Â* Â* Â* Â* Â* .CC = "m...@sth..com"
> > > Â* Â* Â* Â* Â* Â* Â* Â* .Subject = "REMINDER: Today is the due date for " &
> > > Cells(i, 1)
> > > Â* Â* Â* Â* Â* Â* Â* Â* .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > > Â* Â* Â* Â* Â* Â* Â* Â* '.Send
> > > Â* Â* Â* Â* Â* Â* End With
> > > Â* Â* Â* Â* End If
> > > Â* Â* End If
> > > Next i
>
> > > Set remindd = Nothing
> > > Set outl = Nothing
>
> > > End Sub
>
> > > On 26 Kwi, 20:01, Andee39 <Ande...@discussions.microsoft.com> wrote:
>
> > > > A little more info on the spreadsheet I want to create. Â*We receive
> > > > corrrespondence from another unit that has a due date. Â*This correspondence
> > > > is referred to an attorney in my unit. Â*When the due date comes, I would like
> > > > to have an Outlook reminder sent to myself and the individual it was assigned
> > > > to. Â*My column headers would be:
> > > > ID#
> > > > Name of constituent
> > > > Address (if applicable)
> > > > Date referred
> > > > Assigned to
> > > > Due date
>
> > > > Thanks.
>
> > > > "Andee39" wrote:
> > > > > I hope I'm asking this question in the right forum. Â*I wouldlike to know if
> > > > > it is possible to create a basic spreadsheet where one of the columns is for
> > > > > due date and when that due date comes up a reminder is generated from
> > > > > Outlook? Â*I think I understood correctly from a Google search that it can be
> > > > > done in Visual Basic but I have no idea how to do it. Â*I'm also hoping it
> > > > > would not be complicated b/c I have not used VB. Â*If that can't be done, how
> > > > > could I work it that the cell would change to red with due date comes? Â*
> > > > > Thanks.- Ukryj cytowany tekst -
>
> > > > - Pokaż cytowany tekst -- Ukryj cytowany tekst -
>
> > > - Pokaż cytowany tekst -
>
> > .- Ukryj cytowany tekst -
>
> - Pokaż cytowany tekst -

correct e-mail address:

(E-Mail Removed)

I emailed you at the (corrected) address. The subject is Marco Help.
Thanks again!

"Jarek Kujawa" wrote:

> send me an e-mail to (E-Mail Removed) and I'll mail you an example
> workbook with that macro
>
> On 27 Kwi, 20:21, Andee39 <Ande...@discussions.microsoft.com> wrote:
> > Thank you so very much for your help. I really appreciate it and I apologize
> > for any silly questions I might ask. This is out of my league.
> > Before I go ahead with the macro I have a few more questions:
> > - you stated that the macro loops all cells in F2:F1000 range. Does that
> > mean that my column headers/information needs to be in that range? That
> > seems rather odd.
> > - you mention to send an email automatically I will have to uncheck the
> > '.Send row. I don't see a check - will that appear automatically after
> > pasting the macro?
> > - you mention if I want to send an email I will have to click YES on alerts.
> > I don't see anything mentioned in the macro about alerts. Where is that
> > located?
> > - if I want to have the email reminder sent automatically, where does the
> > macro get the email address(es) from?
> >
> > Did I already apologize for all my questions ..........
> >
> >
> >
> > "Jarek Kujawa" wrote:
> > > corrected (sorry)
> >
> > > Sub cus()
> > > Dim outl As Outlook.Application
> > > Dim remindd As Outlook.MailItem
> >
> > > Set outl = New Outlook.Application
> >
> > > For i = 2 To 1000
> > > If Len(Cells(i, 6)) > 0 Then
> > > If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > > Day(Now())) Then
> > > Set remindd = Outlook.CreateItem(olMailItem)
> > > With remindd
> > > .Display
> > > .To = Cells(i, 6).Offset(0, -1)
> > > .CC = "m...@sth.com"
> > > .Subject = "REMINDER: Today is the due date for " &
> > > Cells(i, 1)
> > > .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > > .Send
> > > End With
> > > End If
> > > End If
> > > Next i
> >
> > > Set remindd = Nothing
> > > Set outl = Nothing
> >
> > > End Sub
> >
> > > On 27 Kwi, 11:13, Jarek Kujawa <bli...@gazeta.pl> wrote:
> > > > Yes, it can
> >
> > > > 1. press ALT+F11 to get to the VBA
> > > > 2. select Tools->References and scroll down to check relevant version
> > > > of Microsoft Outlook Object Library, click OK to install it
> > > > 3. press Insert->Module
> > > > 4. paste this macro there
> >
> > > > the macro loops all cells in F2:F1000 range looking for non-blanks,
> > > > creating e-mails w/o sending them (to send an e-mail automatically
> > > > uncheck the '.Send row). if you want to send an e-mail you will have
> > > > to click YES on alerts to confirm you really want to send it cause I
> > > > couldn't find the way to turn those alerts off
> >
> > > > try the macro with your data and let me know if it's ok for you
> >
> > > > for more you might look atwww.outlookcode.com
> >
> > > > Sub cus()
> > > > Dim outl As Outlook.Application
> > > > Dim remindd As Outlook.MailItem
> >
> > > > Set outl = New Outlook.Application
> > > > Set remindd = Outlook.CreateItem(olMailItem)
> >
> > > > For i = 2 To 1000
> > > > If Len(Cells(i, 6)) > 0 Then
> > > > If Cells(i, 6) = DateSerial(Year(Now()), Month(Now()),
> > > > Day(Now())) Then
> > > > With remindd
> > > > .Display
> > > > .To = Cells(i, 6).Offset(0, -1)
> > > > .CC = "m...@sth..com"
> > > > .Subject = "REMINDER: Today is the due date for " &
> > > > Cells(i, 1)
> > > > .Body = Cells(1, 1) & ": " & Cells(i, 1) & vbNewLine &
> > > > Cells(1, 2) & ": " & Cells(i, 2) & vbNewLine & Cells(1, 3) & ": " &
> > > > Cells(i, 3) & vbNewLine & Cells(1, 4) & ": " & Cells(i, 4)
> > > > '.Send
> > > > End With
> > > > End If
> > > > End If
> > > > Next i
> >
> > > > Set remindd = Nothing
> > > > Set outl = Nothing
> >
> > > > End Sub
> >
> > > > On 26 Kwi, 20:01, Andee39 <Ande...@discussions.microsoft.com> wrote:
> >
> > > > > A little more info on the spreadsheet I want to create. We receive
> > > > > corrrespondence from another unit that has a due date. This correspondence
> > > > > is referred to an attorney in my unit. When the due date comes, I would like
> > > > > to have an Outlook reminder sent to myself and the individual it was assigned
> > > > > to. My column headers would be:
> > > > > ID#
> > > > > Name of constituent
> > > > > Address (if applicable)
> > > > > Date referred
> > > > > Assigned to
> > > > > Due date
> >
> > > > > Thanks.
> >
> > > > > "Andee39" wrote:
> > > > > > I hope I'm asking this question in the right forum. I would like to know if
> > > > > > it is possible to create a basic spreadsheet where one of the columns is for
> > > > > > due date and when that due date comes up a reminder is generated from
> > > > > > Outlook? I think I understood correctly from a Google search that it can be
> > > > > > done in Visual Basic but I have no idea how to do it. I'm also hoping it
> > > > > > would not be complicated b/c I have not used VB. If that can't be done, how
> > > > > > could I work it that the cell would change to red with due date comes?
> > > > > > Thanks.- Ukryj cytowany tekst -
> >
> > > > > - Pokaż cytowany tekst -- Ukryj cytowany tekst -
> >
> > > > - Pokaż cytowany tekst -
> >
> > > .- Ukryj cytowany tekst -
> >
> > - Pokaż cytowany tekst -
>
> .
>