Phendrena
New Member
- Joined
- Oct 24, 2008
- Messages
- 17
I have the following code that sends an email from an excel userform.
I would like to include multiple recepients.
As you can see from the code the SendTo, CC & BCC fields are completed based on what subject line the user chooses. In several cases the SendTo, CC & BCC fields are all used.
How can add more recepients?
Thanks,
I would like to include multiple recepients.
As you can see from the code the SendTo, CC & BCC fields are completed based on what subject line the user chooses. In several cases the SendTo, CC & BCC fields are all used.
How can add more recepients?
Code:
Private Sub cmdSendEmail_Click()
' Check to see if Who Called has been completed
If Trim(Me.cboWhoCalled.Value) = "" Then
Me.cboWhoCalled.SetFocus
MsgBox "Please complete the Who Called field!"
Exit Sub
End If
' Check to see if Nature Of Call has been completed
If Trim(Me.cboReason.Value) = "" Then
Me.cboReason.SetFocus
MsgBox "Please complete the Nature Of Call field!"
Exit Sub
End If
' Check to see if Subject has been completed
If Trim(Me.cboSubject.Value) = "" Then
Me.cboSubject.SetFocus
MsgBox "Please choose a Subject for the email!"
Exit Sub
End If
Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object
Dim SendTo As String
Dim cc As String
Dim bcc As String
If Me.cboSubject.Value = "7+1 - Amendment Required" Then
SendTo = "Louise Cragg"
cc = "Cheryl Lumsden"
bcc = "Dealer SupportTeam"
End If
If Me.cboSubject.Value = "7+1 - Unable To Locate Customer" Then
SendTo = "Jody Lee McGee"
cc = "Louise Cragg"
bcc = "Dealer SupportTeam"
End If
If Me.cboSubject.Value = "Agency Amendment" Then
SendTo = "Agency Mailbox"
cc = ""
bcc = "Dealer SupportTeam"
End If
If Me.cboSubject.Value = "Contingency Email Address Change" Then
SendTo = "Agency Mailbox"
cc = ""
bcc = "Dealer SupportTeam"
End If
If Me.cboSubject.Value = "Test" Then
SendTo = "David Bandey"
cc = ""
bcc = ""
End If
EMailSendTo = SendTo '' Required - Send to address
EMailCCTo = cc '' Optional
EMailBCCTo = bcc '' Optional
EMailSubject = Me.cboSubject.Value & " : " & Me.txtTwo.Value
''Establish Connection to Notes
Set objNotesSession = CreateObject("Notes.NotesSession")
''Establish Connection to Mail File
'' .GETDATABASE("SERVER", "FILE")
Set objNotesMailFile = objNotesSession.GETDATABASE("", "")
''Open Mail
objNotesMailFile.OPENMAIL
''Create New Memo
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT
''Create 'Subject Field'
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EMailSubject)
''Create 'Send To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)
''Create 'Copy To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)
''Create 'Blind Copy To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)
''Create 'Body' of memo
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")
With objNotesField
.AppendText "Date : " & Me.txtDate.Value
.ADDNEWLINE 1
.AppendText "Customer Manager : " & Me.txtCM.Value
.ADDNEWLINE 1
.AppendText "Dealer Number : " & Me.txtDealerNo.Value
.ADDNEWLINE 1
.AppendText "Dealer Name : " & Me.txtDealerName.Value
.ADDNEWLINE 1
.AppendText "Scheme : " & Me.cboScheme.Value
.ADDNEWLINE 1
.AppendText Me.lblOne.Caption & " : " & Me.txtOne.Value
.ADDNEWLINE 1
.AppendText Me.lblTwo.Caption & " : " & Me.txtTwo.Value
.ADDNEWLINE 1
.AppendText Me.lblThree.Caption & " : " & Me.txtThree.Value
.ADDNEWLINE 1
.AppendText Me.lblFour.Caption & " : " & Me.txtFour.Value
.ADDNEWLINE 1
.AppendText Me.lblFive.Caption & " : " & Me.txtFive.Value
.ADDNEWLINE 1
.AppendText Me.lblSix.Caption & " : " & Me.txtSix.Value
.ADDNEWLINE 1
.AppendText "Additional Comments : " & Me.txtComments.Value
.ADDNEWLINE 1
End With
''Send the e-mail
objNotesDocument.send (0)
''Release storage
Set objNotesSession = Nothing
Set bjNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing
''Set return code
sendmail = True
Call cmdUpdate_Click
End SubThanks,
