Tabelle als Email, Spaltenbreite ändert sich nach dem Senden

Sub Email_generieren(Zeile, Betreff, Typ)

    'Tabellenbereich einfügen'

    Dim WSh1 As Worksheet, WSh2 As Worksheet

    Dim sBer As String

    Set WSh2 = ThisWorkbook.Worksheets("Stillstände")    ' Datenblatt

    sBer = "F1:AJ" & Zeile                           ' Kopierbereich

    WSh2.Range(sBer).Copy                         ' Bereich kopieren

    With CreateObject("Outlook.Application").CreateItem(0)

        .BodyFormat = 2                           ' 2=HTML-Format

        .Subject = Betreff                        ' Betreff

        .Display

        .To = "a.b@c.com"

        .GetInspector.WordEditor.Range.Paste      ' Bereich in Mail einfügen

        .send

    End With

End Sub