"CC" field in mail has to be filled with userform's variable. It stays empty

[rvr1982]

Hello there,

I need a little help with my vba code.
The idea is to have a userform with a multiple choice (option buttons) and an "ok" button.
When the "ok" button is pressed, a new mail is created. The "CC" field has to be filled with an email adress depending on the choice made with the userform. (I replaced the mail adresses with [mail1] to [mail3].
I tried to make different changes without success. Whatever I do, the "CC" field stays blanck. All the rest works fine.
If anyone could have a look at my code bellow, and explain me what i'm doing wrong, it would really help me out.

Thanks in advance.

Best regards,

Rvr.


Public Sub CreateNewMessage()
Dim strCustomer As String
With CreateObject("Outlook.Application").CreateItem(0)

UserForm1.Show

.To = "[mail1]"
.CC = strCustomer

.Body = "xxx"
.Subject = ""yyy"

.Display
Unload UserForm1
End With
Set objMsg = Nothing
End Sub

---------------------------------------

Private Sub UserForm_Initialize()
optCustomer01.Value = True
End Sub

---------------------------------------

Private Sub cmdOK_Click()
If optCustomer01.Value = True Then
strCustomer = "[mail2]"
End If
If optCustomer02.Value = True Then
strCustomer = "[mail3]"
End If
UserForm1.Hide
End Sub

[skatonni]

This is one way to pass data from the userform.


Option Explicit

Public objMsg As mailitem ' <----

Public Sub CreateNewMessage()

Dim strCustomer As String

Set objMsg = CreateObject("Outlook.Application").CreateItem(0)

With objMsg

UserForm1.Show

.To = "[mail1]"
.body = "xxx"
.Subject = "yyy"

Unload UserForm1

.Display

End With

Set objMsg = Nothing

End Sub

Private Sub cmdOK_Click()

If optCustomer01.Value = True Then
strCustomer = "[mail2]"
End If

If optCustomer02.Value = True Then
strCustomer = "[mail3]"
End If

objMsg.CC = strCustomer

UserForm1.Hide

End Sub


This is a second way.


Option Explicit

Public Sub CreateNewMessage()

Dim strCustomer As String

With CreateObject("Outlook.Application").CreateItem(0)

.Display ' <---

UserForm1.Show

.To = "[mail1]"
.body = "xxx"
.Subject = "yyy"

Unload UserForm1

End With

End Sub

Private Sub cmdOK_Click()

Dim strCustomer As String
Dim curritem As mailitem

Set curritem = ActiveInspector.currentItem

If optCustomer01.Value = True Then
strCustomer = "[mail2]"
End If

If optCustomer02.Value = True Then
strCustomer = "[mail3]"
End If

curritem.CC = strCustomer

Set curritem = Nothing

UserForm1.Hide

End Sub

[rvr1982]

Sorry, I did not had the time to reply earlier.
Both solutions seem to work perfectly. Thanks a lot for your help, this will save me a lot of time over the next few months !