Probleme mit einem Ausdruck

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    Probleme mit einem Ausdruck

    Hi,

    versuche über ein kleines Add In für Outlook (Vers. 2010) dass meine Email speichert... diese Mail auch gleich vorher auszudrucken...

    mit diesem Code versuche ich es :

    VB.NET-Quellcode

    1. Private Sub Mail_drucken()
    2. Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
    3. objOutlook = New Microsoft.Office.Interop.Outlook.Application
    4. Dim mail As Microsoft.Office.Interop.Outlook.MailItem
    5. mail = objOutlook.ActiveExplorer.Selection.Item(1)
    7. PrintDocument1 = mail
    8. PrintDialog1.Document = PrintDocument1
    9. If PrintDialog1.ShowDialog() = DialogResult.OK Then
    10. PrintDocument1.Print()
    12. End If
    13. End Sub



    aber dabei bekomme ich dann folgende Fehlermeldung:

    Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Klassentyp "System.Drawing.Printing.PrintDocument" umgewandelt werden. Instanzen von Typen, die COM-Komponenten repräsentieren, können nicht in andere Typen umgewandelt werden, die keine COM-Komponenten repräsentieren. Eine Umwandlung in Schnittstellen ist jedoch möglich, sofern die zugrunde liegende COM-Komponente QueryInterface-Aufrufe für die IID der Schnittstelle unterstützt.


    komm da einfach nicht weiter... könntet Ihr mir vielleicht weiterhelfen ??

    Wäre super nett...

    Viele GRüße
    lris

    das bedeutet: Eine Mail ist eben kein PrintDocument (und kann auch nicht in ein solches umgewandelt werden).

    Vlt. hat Outlook ja eine eigen Druckfunktion.

    Oder es reicht dir, den Text der Mail zu drucken - sowas wäre mit einem PrintDocument schon möglich. Gugge etwa Mehrseitigen Text drucken

    Hallo ErfinderDesRades :)

    habe es nun so gelöst... habe einfach selbst einen Ausdruck konstruiert :)

    hier erstmal der Ausdruck:

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    2. Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
    3. objOutlook = New Microsoft.Office.Interop.Outlook.Application
    4. Dim mail As Microsoft.Office.Interop.Outlook.MailItem
    5. mail = objOutlook.ActiveExplorer.Selection.Item(1)
    7. ' Drawing aktivieren
    8. Dim g As Graphics = e.Graphics
    9. Dim RandLinks As Integer = 80
    10. Dim StartPosition As Integer = 50
    11. Dim Zeilenhoehe As Integer = 18
    12. Dim F_Calibri08n As New Font("Calibri", 8, FontStyle.Regular)
    13. Dim F_Courier11n As New Font("Courier New", 11, FontStyle.Regular)
    14. Dim F_Courier11b As New Font("Courier New", 11, FontStyle.Bold)
    15. Dim F_Arial14b As New Font("Arial", 14, FontStyle.Bold)
    16. Dim F_Arial11n As New Font("Arial", 11, FontStyle.Bold)
    17. Dim F_Barcode As New Font("Bar-Code 39", 24, FontStyle.Regular)
    18. Dim stift1 As New Pen(Color.Black, 3)
    20. ' Druckausgabe - Kopfdaten
    21. g.DrawString("DIMS Mailarchivierung", F_Arial14b, Brushes.Black, RandLinks, StartPosition)
    22. g.DrawString("Dokumentenmappe", F_Calibri08n, Brushes.Black, 550, StartPosition)
    23. g.DrawString(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(12).Value, F_Barcode, Brushes.Black, 550, (StartPosition + Zeilenhoehe + 4))
    24. g.DrawLine(stift1, RandLinks, (StartPosition + 80), 750, (StartPosition + 80))
    26. ' Druckausgabe - Maildaten
    27. StartPosition += 100
    28. g.DrawString("Von:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    29. g.DrawString(mail.SenderName & " <" & mail.SenderEmailAddress & ">", F_Courier11n, Brushes.Black, 300, StartPosition)
    30. StartPosition += Zeilenhoehe
    31. g.DrawString("Gesendet:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    32. g.DrawString(mail.ReceivedTime, F_Courier11n, Brushes.Black, 300, StartPosition)
    33. StartPosition += Zeilenhoehe
    34. g.DrawString("An:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    35. g.DrawString(mail.To, F_Courier11n, Brushes.Black, 300, StartPosition)
    36. StartPosition += Zeilenhoehe
    37. g.DrawString("CC:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    38. g.DrawString(mail.CC, F_Courier11n, Brushes.Black, 300, StartPosition)
    39. StartPosition += Zeilenhoehe
    40. g.DrawString("BCC:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    41. g.DrawString(mail.BCC, F_Courier11n, Brushes.Black, 300, StartPosition)
    42. StartPosition += Zeilenhoehe
    43. g.DrawString("Betreff:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    44. 'g.DrawString(mail.Subject, F_Courier11n, Brushes.Black, 300, StartPosition)
    45. Dim TotalLength As Integer = mail.Subject.ToString.Length 'länge ermitteln
    46. Dim MaxZeichen1 As Integer = 44
    47. If TotalLength > MaxZeichen1 Then
    48. g.DrawString(mail.Subject.ToString.Substring(0, MaxZeichen1) & "...", F_Courier11n, Brushes.Black, 300, StartPosition)
    49. StartPosition += Zeilenhoehe
    50. g.DrawString(mail.Subject.ToString.Substring(MaxZeichen1, TotalLength - MaxZeichen1) & "(...)", F_Courier11n, Brushes.Black, 300, StartPosition)
    51. Else
    52. g.DrawString(mail.Subject, F_Courier11n, Brushes.Black, 300, StartPosition)
    53. End If
    54. StartPosition += Zeilenhoehe
    55. g.DrawString("Anlagen:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    56. Dim Atmt As Outlook.Attachment
    57. For Each Atmt In mail.Attachments
    58. g.DrawString(Atmt.FileName, F_Courier11n, Brushes.Black, 300, StartPosition)
    59. StartPosition += Zeilenhoehe
    60. Next Atmt
    61. StartPosition += Zeilenhoehe + Zeilenhoehe
    63. ' Mailinhalt (Text)
    64. g.DrawString("Mitteilungsinhalt:", F_Courier11b, Brushes.Black, RandLinks, StartPosition)
    65. StartPosition += Zeilenhoehe
    66. g.DrawString(mail.Body, F_Courier11n, Brushes.Black, RandLinks, StartPosition)
    67. End Sub



    Nun habe ich aber das Propblem mit dem Body.

    a.) wird alles immer mit der gleichen SChrift ausgegeben, nämlich mit Courier11n... hätte es aber gerne in der Originalformatierung

    b.) habe ich das Problem mit dem Zeilenumbruch...
    Es wird nur der Zeilenumbruch von der Mail selbst angewendet was bedeutet, dass eine Zeile durchaus abgeschnitten werden kann.

    Ausserdem habe ich das Problem mit mehreren Seiten...

    Vielleicht könntest mir da weiterhelfen ????

    Gruß
    lris

    zu a) weißichnix - was heißt ühaupt "Original-Formatierung"? Bei mir sind die Emails in der Schrift, die in meim Email-Prog eingestellt ist, oder willst du html-emails drucken?

    zu b) das ist doch im gegebenen Link gelöst, oder?
    Natürlich nur für Text - komplizierteres kannichnich.

    Gibts da echt keine Printing-Unterstützung in der Outlook-API?

    Danke für die Hilfe... hatte zuerst den Link nicht gesehen...


    Hab nun hinbekommen... läuft :)

    VB.NET-Quellcode

    1. Private Sub Mail_drucken()
    2. Page = 1
    3. MehrSeiten = False
    4. PrintDialog1.Document = PrintDocument1
    5. If PrintDialog1.ShowDialog() = DialogResult.OK Then
    6. PrintDocument1.Print()
    7. End If
    8. End Sub
    10. Private MehrSeiten As Boolean
    11. Private Page As Integer
    12. Private _CharsPrinted As Integer
    13. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    14. Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
    15. objOutlook = New Microsoft.Office.Interop.Outlook.Application
    16. Dim mail As Microsoft.Office.Interop.Outlook.MailItem
    17. mail = objOutlook.ActiveExplorer.Selection.Item(1)
    19. ' Drawing aktivieren
    20. Dim g As Graphics = e.Graphics
    21. Dim RandLinks As Integer = 80
    22. Dim F_Calibri08n As New Font("Calibri", 8, FontStyle.Regular)
    23. Dim F_Courier11n As New Font("Courier New", 11, FontStyle.Regular)
    24. Dim F_Courier11b As New Font("Courier New", 11, FontStyle.Bold)
    25. Dim F_Arial14b As New Font("Arial", 14, FontStyle.Bold)
    26. Dim F_Arial11n As New Font("Arial", 11, FontStyle.Bold)
    27. Dim F_Barcode As New Font("Bar-Code 39", 24, FontStyle.Regular)
    28. Dim stift1 As New Pen(Color.Black, 3)
    29. Dim AnfangsZeile As Integer = 50
    30. Dim Zeilenhoehe As Integer = 18
    32. ' Druckausgabe - Kopfdaten
    33. g.DrawString("DIMS Mailarchivierung", F_Arial14b, Brushes.Black, RandLinks, AnfangsZeile)
    34. g.DrawString("Dokumentenmappe", F_Calibri08n, Brushes.Black, 550, AnfangsZeile)
    35. g.DrawString(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(12).Value, F_Barcode, Brushes.Black, 550, (AnfangsZeile + Zeilenhoehe + 4))
    36. g.DrawLine(stift1, RandLinks, (AnfangsZeile + 80), 750, (AnfangsZeile + 80))
    38. If Page = 1 Then
    39. ' Druckausgabe - Maildaten
    40. AnfangsZeile += 100
    41. g.DrawString("Von:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    42. g.DrawString(mail.SenderName & " <" & mail.SenderEmailAddress & ">", F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    43. AnfangsZeile += Zeilenhoehe
    44. g.DrawString("Gesendet:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    45. g.DrawString(mail.ReceivedTime, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    46. AnfangsZeile += Zeilenhoehe
    47. g.DrawString("An:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    48. g.DrawString(mail.To, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    49. AnfangsZeile += Zeilenhoehe
    50. g.DrawString("CC:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    51. g.DrawString(mail.CC, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    52. AnfangsZeile += Zeilenhoehe
    53. g.DrawString("BCC:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    54. g.DrawString(mail.BCC, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    55. AnfangsZeile += Zeilenhoehe
    56. g.DrawString("Betreff:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    57. 'g.DrawString(mail.Subject, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    58. Dim TotalLength As Integer = mail.Subject.ToString.Length 'länge ermitteln
    59. Dim MaxZeichen1 As Integer = 44
    60. If TotalLength > MaxZeichen1 Then
    61. g.DrawString(mail.Subject.ToString.Substring(0, MaxZeichen1) & "...", F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    62. AnfangsZeile += Zeilenhoehe
    63. g.DrawString(mail.Subject.ToString.Substring(MaxZeichen1, TotalLength - MaxZeichen1) & "(...)", F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    64. Else
    65. g.DrawString(mail.Subject, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    66. End If
    67. AnfangsZeile += Zeilenhoehe
    68. g.DrawString("Anlagen:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    69. Dim Atmt As Outlook.Attachment
    70. For Each Atmt In mail.Attachments
    71. g.DrawString(Atmt.FileName, F_Courier11n, Brushes.Black, 300, AnfangsZeile)
    72. AnfangsZeile += Zeilenhoehe
    73. Next Atmt
    74. End If
    76. If Page = 1 Then
    77. AnfangsZeile += Zeilenhoehe + Zeilenhoehe
    78. Else
    79. AnfangsZeile += (AnfangsZeile + 80)
    81. End If
    83. ' Mailinhalt (Text)
    84. g.DrawString("Mitteilungsinhalt:", F_Courier11b, Brushes.Black, RandLinks, AnfangsZeile)
    85. AnfangsZeile += Zeilenhoehe
    86. 'g.DrawString(mail.Body, F_Courier11n, Brushes.Black, RandLinks, AnfangsZeile)
    88. Dim SF As StringFormat = StringFormat.GenericDefault
    89. Dim Ft As Font = F_Courier11n
    90. Dim AllowedHeight As Integer = 0
    91. If Page = 1 Then
    92. AllowedHeight = e.MarginBounds.Height - 240
    93. Else
    94. AllowedHeight = e.MarginBounds.Height - 130
    95. End If
    96. Dim SB As New System.Text.StringBuilder(mail.Body.Substring(_CharsPrinted))
    97. Dim LinesFilled, CharsFitted As Integer ' werden von MeasureString() eingetragen (ByRef)
    99. Dim Sz As SizeF = g.MeasureString(SB.ToString, Ft, e.MarginBounds.Size, SF, CharsFitted, LinesFilled)
    101. ' Sinnigerweise zählt MeasureString() auch nur halb dargestellte Characters als "fitted".
    102. ' Da wir das beim Drucken anders sehen, Gegenprobe (Messung innerhalb einer quasi nach
    103. ' unten offenen Size):
    104. Sz.Height = Short.MaxValue
    106. ' Maße des druckbaren Bereichs
    107. Dim X As Double = e.MarginBounds.Left
    108. Dim Y As Double = e.MarginBounds.Top
    109. Dim B As Double = e.MarginBounds.Width
    110. Dim H As Double = e.MarginBounds.Height
    111. Dim drawRect As New RectangleF(RandLinks, AnfangsZeile + 20, B, Sz.Height)
    113. While g.MeasureString(SB.ToString(0, CharsFitted), Ft, Sz, SF).Height > AllowedHeight
    114. CharsFitted -= 1
    115. End While
    117. g.DrawString(SB.ToString(0, CharsFitted), Ft, Brushes.Black, drawRect, SF)
    118. 'g.DrawString(SB.ToString(0, CharsFitted), Ft, Brushes.Black, RandLinks, AnfangsZeile)
    120. _CharsPrinted += CharsFitted
    122. If mail.Body.ToString.Length > _CharsPrinted Then
    123. MehrSeiten = True
    124. End If
    126. If MehrSeiten = True Then
    127. e.HasMorePages = True
    128. Page = Page + 1
    129. AnfangsZeile = 200
    130. MehrSeiten = False
    131. Else
    132. e.HasMorePages = False
    133. End If
    135. End Sub
    137. Public Function Ausgabenhöhe(ByVal S As SizeF, ByVal B As Double) As Double
    138. Dim H As Double
    140. If S.Width > B Then
    141. H = (S.Width / B) * S.Height
    142. Else
    143. H = S.Height
    144. End If
    146. Return H
    147. End Function

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „lris08“ ()

Facebook