Schedule Repeat sending file outlook 2003

  • Thread starter Thread starter maxnews
  • Start date Start date
M

maxnews

Hi,

I wrot on this forum previously but I am having another go.

I have read this http://www.outlookcode.com/d/forms/skedrpt.htm which
is not applicable to 2003.

I have a lot of clients remotly that are reporting problems sending
email via outlook 2003 through our servers. Deleting the profile and
starting again seems to fix it but we would like to find out what is
going on. It is only outlook 2002 and 2003 not express.

As a test I wanted to setup a reoccuring email being sent from Outlook.
I seem to remember doing this years ago with succss. I ran a schedule
to run a command line that did the job.

I am not a programmer but can follow instructions.

Can someone tell me what I need to do to send an email out with a small
attachment every 10 minuites to a selected email address.

If possible a serial number / counter in the subject line would be
nice.

Thanks for reading.
 
Am 27 Nov 2005 21:16:31 -0800 schrieb (e-mail address removed):


This sample should do it:

Private Sub Application_Reminder(ByVal Item As Object)
Dim oTask As Outlook.TaskItem
Dim oMail As Outlook.MailItem
Dim oFld As Outlook.MAPIFolder
Static counter As Long
If TypeOf Item Is Outlook.TaskItem Then
Set oTask = Item
' check item´s subject
If oTask.Subject = "Send next test e-mail" Then
' increase counter
counter = counter + 1
' set new reminder time
oTask.ReminderTime = DateAdd("n", 10, Now)
oTask.Save
' get and send copy of e-mail template
Set oFld = Application.Session.GetDefaultFolder(olFolderDrafts)
Set oFld = oFld.Folders("test")
Set oMail = oFld.Items(1)
Set oMail = oMail.Copy
oMail.Subject = oMail.Subject & " / #" & counter
oMail.Send
End If
End If
End Sub

Open the VBA editor (ALT+F11) and copy the function into the module
"ThisOutlookSession". Set the security to medium so that VBA will be
executed. Close Outlook, save the project, re-open OL, and confirm the
dialog for VBA.

Create a folder named "test" in the Drafts folder. Create your mail template
with the attachment, subject and recipients address, save it, and move the
saved mail into the test folder.

Now create a task with the subject "Send next test e-mail" and set the
reminder.
 
Hey that was cool. If you have a favourate charity that takes paypal I
will send a donation.
 
Am 29 Nov 2005 22:32:29 -0800 schrieb (e-mail address removed):

That´s a good idea. You might donate to your favourate charity, please.
 
I think i may have missed a step. I copied the code into
"ThisOutlookSession". Created the subfolder "test" under drafts, and created
the task for which i get a reminder but at what point does it send the email?
do i dismiss the reminder or snooze? thank you for the clarification.
 
Am Wed, 30 Nov 2005 10:01:02 -0800 schrieb Edward Jones (Eddie):

You shouldn´t see the reminder. Did you take a look into the SentItems
folder?
 
1) I copied the code just as it was listed in the post dated 11/27/05 into
the "ThisOutlookSession" module.
2) Created a folder named "test" under drafts
3) Created a new email and saved it as a draft
4) Moved the newly saved draft email into the test folder
5) Created a new task with the subject "Send next test e-mail" and set the
reminder date to be 5 minutes from the current time
6) Went to Tool -> Options -> Security tab and set the security zone to
internet and clicked zone settings. Confirmed that the internet zone was set
to medium
7) Closed and reopened outlook

Upon reminder time a dialog pops up for "Send next test e-mail" and I click
dismiss.
The only thing I can think of that would be different from your instructions
is that I am using Outlook 2003 and I am not quite sure what you meant by
confirm VBA dialog I assumed this meant to confirm the code was in the module
which I did. Thank you for you additional help.
 
Am Thu, 1 Dec 2005 07:09:02 -0800 schrieb Edward Jones (Eddie):

Ok, talking about VBA means an other security setting: Please click
Tools/Macro/Security and select medium or less.

After that you´d need to restart OL.
 
Back
Top