Sorry, that was the "more difficult" link and now I realize that it doesn't hold sample code.
Try the sample code of this link:
http://support.microsoft.com/kb/161833
The commentlines should provide all information, but don't hesitate to ask when you get stuck !
Nic;o)
Hi Nico,
I have just tried the coding that they provide, I think this is just to show how to send an email.... this coding give 2 security pop ups and 1 coded Msgbox.
Below is the code I have for my emails to send, in my full version I have a loop that goes until all emails are sent.
- Sub ReminderEmails()
-
-
Dim Email As String
-
Dim EmailName As String
-
Dim strNote As String
-
Dim objOutlook As Outlook.Application
-
Dim objEmail As Outlook.MailItem
-
-
EmailName = "email@address.com.au"
-
-
strNote = "Dear " & EmailName & vbCrLf & vbCrLf
-
strNote = strNote & "the rest of the message "
-
-
Set objOutlook = CreateObject("Outlook.application")
-
Set objEmail = objOutlook.CreateItem(olMailItem)
-
-
With objEmail
-
-
.To = Email
-
.Subject = "Subject Title"
-
.Body = strNote
-
.Send
-
End With
-
-
Set objEmail = Nothing
-
-
End Sub
I am just worried that another user is going to hit "No" when the Security Box comes up which will then give them the Debug Message box & give them access to the coding which can be dangerous when they dont know anything about it.
I really appreciate all the help you are giving me.
Thank you
AK