Office: Wie müsste mein Makro aussehen?

Hallo Forum,

ich versende Preislisten an Kunden von mir per Outlook und einem Makro, das wie folgt aussieht.

.Body = "blabla" _
& Wrap$ & Wrap$ & "blabla” _
& Wrap$ & "blabla" _
& Wrap$ & " blabla " _
& Wrap$ & " blabla "
.Attachments.Add myDocument
End With
Set MakeNewMessage = MyMessage
End Function


1. Problem: Ich kann nur ein gewisse Anzahl von „Wraps$“ machen (ca. 15 oder 20), mehr erlaubt das Programm nicht, d. h. bei längeren Listen gibt es Probleme. Wie kann ich längere Listen eingeben?

2. Frage: Wie binde ich Fotos direkt in den Text ein? Habe bisher nur 1 Foto als Anhang mitschicken können. Das ist aber häufig zu wenig. Bräuchte oft 5 oder mehr Fotos.
Entweder ich kann die 5 Fotos alle per Anhang mitschicken oder direkt in die Nachricht einfügen. Wer weiss, wie so was geht?

Leider habe ich von VBA so gut wie keine Ahnung.

 

Hallo,

in dem Beitrag "Serienmails mit Anhängen" gibt es ein Codebeispiel, das Du für diesen Fall verwenden kannst.

Gruß
Peter

 

Der Link hat mich auf eine Idee gebracht:
Eventuell müsste es doch auch so funktionieren, dass man eine Vorlage in Outlook vorbereitet und diese Vorlage wird dann benutzt um an alle Kunden die Mails zu versenden.
Damit wären dann beide von mir genannten Probleme gelöst. Das System zur automatischen Versendung steht schon, d. h. man müsste es nur noch irgendwie (?) mit der Vorlage verbinden.

 

In dem Codebeispiel musst Du in der Konstanten TEMPLATE den Pfad zu der von Dir erstellten Vorlage angeben.

In der Konstanten CATEGORY wird festgelegt, welcher Kategorie der Kontakt enstprechen muss, damit an diesen eine E-Mail versendet wird.

Gruß
Peter