can anyone post me a sample code, how to use the Outlook Redemption CC
& BCC ?
when i try .cc " or .bcc = " then i get an error
"read only"

can anyone help me?

tanks in advance!

GreetZ, Luk

The Code is:

Imports Microsoft.Office.Interop.Outlook
Imports Redemption

Class Form1
Dim outApp As Microsoft.Office.Interop.Outlook.Application
Dim outMail As Microsoft.Office.Interop.Outlook.MailItem
Dim safMail As SafeMailItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

outApp = New Microsoft.Office.Interop.Outlook.Application
outMail = outApp.CreateItem(OlItemType.olMailItem)
safMail = New SafeMailItem
safMail.Item = outMail

With safMail
")
..Cc = " - JUST READONLY ???
..Bcc = " - JUST READONLY ???
..Subject = "subject"
..Body = "something"

End Sub
End Class

You'd be better off posting programming questions to a programming
newsgroup.

If you look in the Object Browser you'll see that Bcc and Cc are indeed
read-only.

You can either use the SafeRecipients.AddEx method and specify the recipient
type in that call or get the created recipient as a SafeRecipient object and
set SafeRecipient.Type. The enumeration members you want to use are either
olBCC or olCC. For a To address the setting would be olTo, although that's
the default so it doesn't need to be used.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Luk" wrote in message
ups.com...
The Code is:

Imports Microsoft.Office.Interop.Outlook
Imports Redemption

Class Form1
Dim outApp As Microsoft.Office.Interop.Outlook.Application
Dim outMail As Microsoft.Office.Interop.Outlook.MailItem
Dim safMail As SafeMailItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

outApp = New Microsoft.Office.Interop.Outlook.Application
outMail = outApp.CreateItem(OlItemType.olMailItem)
safMail = New SafeMailItem
safMail.Item = outMail

With safMail
")
.Cc = " - JUST READONLY ???
.Bcc = " - JUST READONLY ???
.Subject = "subject"
.Body = "something"

End Sub
End Class