Trying to have a prompt to ask for text to be added to subject before sending.

sgtdozerh

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
I currently have a prompt asking me if I want to bcc a set address when I send a message. My issue is if I answer yes, i want it to prompt me to enter text that will be added to the end of the subject line, then complete teh send process.

Any ideas?

Current BCC code.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim objRecip As Recipient

Dim strMsg As String

Dim res As Integer

Dim strBcc As String

On Error Resume Next

strBcc = "email address here"

res = MsgBox("BCC this message to DNA Issues?", vbYesNo + vbDefaultButton1, _

"BCC Message")

If res = vbNo Then

Cancel = False

Else

Set objRecip = Item.Recipients.Add(strBcc)

objRecip.Type = olBCC

If Not objRecip.Resolve Then

strMsg = "Could not resolve the Bcc recipient. " & _

"Please check the BCC Script configuration. " & _

"Do you want still to send the message?"

res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _

"Could not resolve BCC")

If res = vbNo Then

Cancel = True

End If

End If

End If

Set objRecip = Nothing

End Sub

Thanks!

Jeremy
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Re: Trying to have a prompt to ask for text to be added to subject before send

Try something like

Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC

strSubject = InputBox("enter the text you want to add to the subject"))

item.subject = item.subject & " " & strSubject

If Not objRecip.Resolve Then
 

sgtdozerh

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Re: Trying to have a prompt to ask for text to be added to subject before send

Thank you Diane. The only difference I am looking for is a prompt to add the text on a per email basis. So if I send an email I will get a 'Enter order number" prompt at which point I can add a unique entry and have it added to the end of the subject line and then have my BCC prompt popup.
 

sgtdozerh

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Re: Trying to have a prompt to ask for text to be added to subject before send

Thank you Diane. The only difference I am looking for is a prompt to add the text on a per email basis. So if I send an email I will get a 'Enter order number" prompt at which point I can add a unique entry and have it added to the end of the subject line and then have my BCC prompt popup.

- - - Updated - - -

Thank you Diane. The only difference I am looking for is a prompt to add the text on a per email basis. So if I send an email I will get a 'Enter order number" prompt at which point I can add a unique entry and have it added to the end of the subject line and then have my BCC prompt popup.
 
Top