diff --git a/P3D/Screens/PC/MailSystemScreen.vb b/P3D/Screens/PC/MailSystemScreen.vb
index eda680da4..ef211d974 100644
--- a/P3D/Screens/PC/MailSystemScreen.vb
+++ b/P3D/Screens/PC/MailSystemScreen.vb
@@ -433,10 +433,12 @@
                         End If
 
                         Dim text As String = ""
-                        If TakenFromParty = False Then
-                            text = Core.Player.Mails(index - 1).MailText.CropStringToWidth(FontManager.MainFont, 600)
-                        Else
-                            text = TempNewMail.MailText.CropStringToWidth(FontManager.MainFont, 600)
+                        If index <> -1 Then
+                            If TakenFromParty = False Then
+                                text = Core.Player.Mails(index - 1).MailText.CropStringToWidth(FontManager.MainFont, 600)
+                            Else
+                                text = TempNewMail.MailText.CropStringToWidth(FontManager.MainFont, 600)
+                            End If
                         End If
                         Dim yPlus As Integer = CInt(FontManager.MainFont.MeasureString(text).Y)