I follow the values through the code and the variable AReceipt does set to True if the user presses Yes in the message box, however when the email is sent the receipt is never received. Here is the code I am using:
'Does the user want a receipt
ReceiptRequired = MsgBox("Would you like a return receipt?", vbYesNo, "Return Receipt")
If ReceiptRequired = 6 Then
AReceipt = True
Else
If ReceiptRequired = 7 Then
AReceipt = False
End If
End If
ActiveWorkbook.SendMail Recipients:=Array(strRecipients), Subject:=Client & " " & Project & " PCS " & number & "", ReturnReceipt:=AReceipt
'Does the user want a receipt
ReceiptRequired = MsgBox("Would you like a return receipt?", vbYesNo, "Return Receipt")
If ReceiptRequired = 6 Then
AReceipt = True
Else
If ReceiptRequired = 7 Then
AReceipt = False
End If
End If
ActiveWorkbook.SendMail Recipients:=Array(strRecipients), Subject:=Client & " " & Project & " PCS " & number & "", ReturnReceipt:=AReceipt