Code beschleunigen

[Fennek]

Hallo,

in den Body sollte Inhalte einer Excel-Datei formatiert eingefügt werden. Ein Code im "Mail.GetInspector.GetWordEditor" mit der Funktion "Paragraphs.Add" funktioniert, ist aber recht langsam.

Code-Beispiel (Ausschnitt, WB: Excel-Workbook):

Code:

With Doc.Paragraphs

'Anrede, Vor- , Nachname (bold)
            .Add
            .Item(.Count).Range.Text = WB.sheets(1).Cells(r, 24) & ", " & WB.sheets(1).Cells(r, 21) & " " & WB.sheets(1).Cells(r, 22) & " " & WB.sheets(1).Cells(r, 23)
            Set rng = .Item(.Count).Range
            cc = Len(WB.sheets(1).Cells(r, 24))
            rng.SetRange rng.Start, rng.Start + cc
            rng.Font.Bold = True
            '.Item(.Count).Range.Bold = True
            .Add

End with

Es werden mindestens 90 Blöcke mit ca. 15 Zeilen geschrieben. Pro Mail kann dies ca. 2 Minuten dauern. Bei duzenden Mails pro Tag ist der Rechner immer "stundenlang" beschäftigt.

Frage: Welcher Ansatz Texte formatiert in den Mail-Body zu schreiben, verspricht eine Beschleunigung?

Danke

MfG

[knobbi38]

Hallo Fennek,

Frage: Welcher Ansatz Texte formatiert in den Mail-Body zu schreiben, verspricht eine Beschleunigung?

Für gewöhnlich kannst du dafür auch eine HTML-Mail verwenden.

Gruß
Knobbi38

[Fennek]

Hallo,

die "Zeifresser" ion Outlook waren vorallem das Einfügen von Hyperlinks, auch von Formatierung.

Hyperlinks und Formate für ganze Zellen kann Excel wesentlich schneller einfügen. Mit einem (hoffentlich) geschickten Mix aus Excel und Outlook ist die Zeit jetzt ca. 30 Sekunden pro Mail.

Jetzt ist der Zeitfressen eine Abstandsberechnung für PLZ's, da habe ich aber keine Idee.


Danke unf MfG