Schriftart .htmlBody / "Kettenbrief"
20.02.2020 14:31:57
Mike
Ich habe mir einmal ein nettes Makro erstellt, damit ich aus einer Excel Tabelle heraus, E-Mails versenden kann.
Bin schon ziemlich weit gekommen, aber zwei Sachen funktioniere nicht, oder ich bekomme es einfach nicht hin.
Erstens:
Wie kann ich in dem Code die Schriftart auf Arial 10 ändern?
Ich habe bereits alles mit usw. ausprobiert, aber ich bekomme immer wieder Fehlermeldungen.
Hier der Code:
Option Explicit
Public Sub EmailMitSignatur()
Dim olApp As Object
Dim olMail As Object
Dim strOldBody As String
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.Createitem(0)
With olMail
.GetInspector.Display
strOldBody = .htmlBody
.To = Sheets("Tabelle1").Range("K2")
.Subject = "Fehlende Auftragsbestätigung Bestellung " & Sheets("Tabelle1").Range("A2")
.htmlBody = "Guten Tag
" & _
"Wir haben leider bis heute keine Auftragsbestätigung zu unserer _
Bestellung (Tabelle1, FeldA2) erhalten.
" & _
"Könnten Sie uns diese bitte baldmöglichst zukommen lassen.
" & _
strOldBody
End With
End Sub
Zweitens
Die Excel Tabelle hat mehrere Zeilen und ich möchte, dass es mir jeweils, sobald ich das Makro aktiviere, aus jeder Zeile welche Daten in Spalte A hat, eine Mail generiert.
Bis jetzt habe ich das Makro aktiviert, eine Mail anhand der Daten aus Zeile 2 wurde erstellt, die Zeile 2 wieder gelöscht und das Makro wieder aktiviert, usw.. Halt alles "umständlich".
Besteht die Möglichkeit, dies irgendwie zu "automatisieren" ?
Besten Dank für Eure Hilfe.
M