diff --git a/P3D/Screens/PC/MailSystemScreen.vb b/P3D/Screens/PC/MailSystemScreen.vb
index 39add6694..20766debd 100644
--- a/P3D/Screens/PC/MailSystemScreen.vb
+++ b/P3D/Screens/PC/MailSystemScreen.vb
@@ -51,6 +51,7 @@
             Me.TakenFromParty = True
             Me.index = 1
             Me.TempNewMail = Items.MailItem.GetMailDataFromString(PartyMailItem.AdditionalData)
+            Me.TempNewMail.MailRead = True
         End If
     End Sub