VBA i Outlook 2010 - Hvordan printe ut epostens emnetittel?

[Khaffner]

Jeg ønsker å skrive ut emnetittelen til nyeste ankomne epost i innboksen. Her er koden jeg har skrevet hittil

Sub SubjectPrint()
Dim MailFolder As Folder
Dim Mail As Outlook.MailItem
Dim Mailsubject As String

Set MailFolder = Session.GetDefaultFolder(olFolderInbox)
Set Mail = MailFolder.Items.Item(1)
Mailsubject = Mail.Subject

MsgBox (Mailsubject)
Mailsubject.PrintOut
End Sub

 

Når dette kjøres, får jeg en feilmeldingen "Compile error: Invalid qualifier". Så markeres "Mailsubject" i siste linja.

Dersom jeg fjerner den linja, får jeg opp en popup med mailsubject, som forventet. Jeg får ikke printet ut Mailsubject.

Å skrive ut Mail går fint, men da kommer jo hele eposten.

Må jeg definere Mailsubject som noe annet enn string? Må Mailsubject skrive til en txt før den kan skrives ut? Hva kan jeg gjøre?

[Wattengård]

Hvis Mail.Subject er en string, så har vel ikke en String metoden PrintOut?