I maybe a little behind the curve but.. As of now I am generating emails in 2000 but have not upgraded because of the warning msgbox which comes up everytime you try and send an email. Have they found away to shut this off? is it a none issue in 2003?
Thanks
Bill

I overcame this by loading some freeware called Express ClickYES on my computer. There is a pro version but you have to pay for it... here is the web site... good luck.. John

http://www.contextmagic.com/express-clickyes/

Do a search for the Redemption.dll, it will remove the dialog box for no cost.

I've tried using the Redemption.dll (v4.3.0.604) and each time the code executes Access 2000 (9.0.6926) SP3 crashes.

The code is being called from a simple command button on a form. If I put a break point in the code and step through it the code executes through to the end, but as soon as the Function ends, Access crashes. I'm stuck :(, does anyone have any clue what is going on ?
Thanks

Richard

Hi Richard,
Don't know if yopu ever sovled this puzzle but I think I have found the answer. Please let me know if it works for you

Public Function SendMail()

Dim olAPP As Object
Dim olNamespace As Object
Dim stpEmail
Dim oItem

Set stpEmail = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem
Set olAPP = CreateObject("Outlook.Application")
Set olNamespace = olAPP.GetNamespace("MAPI")
olNamespace.Logon

Set oItem = olAPP.CreateItem(0) 'Create a new message

With oItem
    .Recipients.Add "[email protected]" 'm_RecipEmail
    .Recipients.ResolveAll
    .Subject = "m_Subject"
    .Importance = olImportanceNormal 'Normal importance
    .Body = "m_Note"
    .Send
End With

'Clean Up

stpEmail.Item = oItem

Set oItem = Nothing
olNamespace.Logoff
Set olNamespace = Nothing
Set olAPP = Nothing
Set stpEmail = Nothing
End Function

This does not close access down anymore

I'm having a similar problem. I've been kicking at it for two days now and am at my wits end. Can anyone help install redemption in this?

=====================

Sub SendMessages(Optional AttachmentPath)

  Dim MyDB As Database
  Dim MyRS As Recordset
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.recipient
  Dim objOutlookAttach As Outlook.Attachment
  Dim TheAddress As String
  Dim strBody As String
  Dim strSubject As String
  Dim olItem As Outlook.MailItem

strSubject = "SUBJECT"
'*create string with email address
strBody = strBody & "BLAH BLAH BLAH" & Chr(13) & Chr(13)

'***creates and sends email

  Set MyDB = CurrentDb
  Set MyRS = MyDB.OpenRecordset("newsletter")
  MyRS.MoveFirst


  ' Create the Outlook session.
  Set objOutlook = CreateObject("Outlook.Application")

  Do Until MyRS.EOF
  ' Create the e-mail message.
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  TheAddress = MyRS![Email]


     With objOutlookMsg
        ' Add the To recipients to the e-mail message.
        Set objOutlookRecip = .Recipients.Add(TheAddress)
        objOutlookRecip.type = olTo

        ' Add the Cc recipients to the e-mail message.
        'If (IsNull(Forms!frmMail!CCAddress)) Then
        'Else
        ' Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)
        ' objOutlookRecip.Type = olCC
        'End If

        ' Set the Subject, the Body, and the Importance of the e-mail message.
        .subject = strSubject
        .Body = strBody
        '.Importance = olImportanceHigh 'High importance

        'Add the attachment to the e-mail message.
        If Not IsMissing(AttachmentPath) Then
           Set objOutlookAttach = .Attachments.Add(AttachmentPath)
        End If

        ' Resolve the name of each Recipient.
        For Each objOutlookRecip In .Recipients
           objOutlookRecip.Resolve
           If Not objOutlookRecip.Resolve Then
             objOutlookMsg.Display
           End If
        Next
        .Send
      End With
      MyRS.MoveNext
   Loop
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Sub