Ich bekomme Benachrichtigungsmails, in welchen Daten über Personen stehen.

Normal drücke ich auf "weiterleiten", füge einen Standardtext ein, füge eine Analge hinzu, passe die Anrede an und füge noch eine Person in cc, abhängig der Postleitzahl, welche angegeben wurde in der Benachrichtigungsmail.

Ich habe ein Problem, dass der Zeilenabstand immer auf "auto" steht und es daher viel zu groß ist.

Es muss auf  "0" sein.

Nächstes Problem: Kann ich per VBA programmieren, dass er die e-MailAdresse, die in der Mail unter Punkt "e-Mail": hinterlegt wurde als Empfänger nimmt?

Kann ich abhängig von der PLZ Empfänger unter CC eingeben lassen per VBA?

Sub Neu()

Dim MyItem As Outlook.MailItem
Dim obj_curitem As MailItem
Dim obj_newitem
Dim obj_Selection
Dim obj_curfolder
Dim obj_msgitems
Dim Forward As Object


strBody = "<span style=""font-family : calibri;font-size : 11pt""<p>Guten Tag ,</p>" & _
"<p>&nbsp;</p>" & _
"<p>Bei Fragen stehen wir Ihnen jederzeit gerne zur Verf&uuml;gung.</p>"


If Err.Number = 0 Then
    'Der selection die aktuelle Mailauswahl zuweisen
    Set obj_Selection = Outlook.ActiveExplorer.Selection
    'Wenn es eine markierte Mail gibt
    If obj_Selection.Count > 0 Then
        'Alle markierten Mails durchlaufen
         
        For Each obj_curitem In obj_Selection
            strID = obj_curitem.EntryID
            Set olNS = Application.GetNamespace("MAPI")
           
            'Object auf einem neuen Item erstellen
            Set obj_newitem = obj_curitem.Forward
            With obj_curitem.Forward
                .Forward = True
                .BodyFormat = olFormatHTML
                .Subject = .Subject
                .To = "j@pn.de"
                .HTMLBody = strBody & .HTMLBody
                .Display
                

 
 
           'ANLAGE HINZUFÜGEN
            d = Dir("S:\*.xls")
             While d <> ""
              .Attachments.Add "S:\" & d
              d = Dir
          Wend
          
            End With
        Next
    End If
End If


End Sub