Outlook redemption

[Jon]

I want to send an email using the Outlook Redemption addin.

1. I ran their standard install.exe file. Does this register the dll on the
system also or is that a seperate thing I have to do?

2. Does anyone have a sample piece of code of how to send a simple plain
text email using this addin? I just can't seem to work it out.

Thanks,

Dave

 

[Van T. Dinh]

Sorry, wrong newsgroup. This newsgroup is for Microsoft Access, a database
application.

try re-posting your question in one of the Outlook newsgroups.

HTH
Van T. Dinh
MVP (Access)

 

[R. Hicks]

Here is an example sending an email using the Redemption .dll fro
Access.

Code
-------------------
Private Sub SendSafeMail()
Dim safemail As Variant
Dim myOlApp
Dim MyItem
Dim myRecipient
Dim myBody
Dim myfolder
Dim mynamespace
Dim myAttachments
Dim Utils
Dim strSendTo As String
Dim strCC As String
Dim strAttachPath As String
Dim strAttachPath2 As String

strSendTo = "(e-mail address removed)"
'strCC = "(e-mail address removed)"
strAttachPath = "FullPathToFile"
'strAttachPath2 = "FullPathToFile"

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItem(0)
Set safemail = CreateObject("Redemption.SafeMailItem")
Set safemail.Item = MyItem
Set mynamespace = myOlApp.GetNameSpace("MAPI")
'mynamespace.Logon "myProfile", "myPassword", True, True ' Choose a Profile
Set myfolder = mynamespace.GetDefaultFolder(5)
With safemail
.recipients.Add (strSendTo) ' Send To
'.CC = strCC ' Carbon Copy
.Attachments.Add (strAttachPath) ' Attachment 1
'.Attachments.Add (strAttachPath2) ' Attachment 2
.Subject = "Text For Subject" ' Email Subject Text here
.Body = "Text Fo Email Body" ' Text for Email Body
'.Importance = olImportanceHigh ' High importance
.ReadReceiptRequested = True
.OriginatorDeliveryReportRequested = True
.Send
End With

Set Utils = CreateObject("Redemption.MAPIUtils")
Utils.DeliverNow

Set myOlApp = Nothing
Set safemail = Nothing
Set Utils = Nothing
MsgBox "Mail Sent", vbInformation, "Mail Sent..."

End Su

 

[Jon]

Excellent! Thank you!

Jon