zeilenumbruch im vba editor
20.01.2004 15:04:15
Jens Rowertz
ich hab mal eine Frage zum VBA Editor. Ich möchte gerne eine Email aus Excel Daten generieren und dannn per Outlook verschicken. Das klappt auch schon, dank des Herber Archivs, wo man ne Menge dazu finden kann ;-)
Mein Problem ist folgendes: Der VBA-Editor spinnt! Wenn ich eine Variable mit einem Wert belegen will, in meinem Fall ein umfangreicher String der über mehrere Zeilen geht, dann erkennt der Editor das nicht mehr als zugehörig zur vorherigen zeile an.
Stattdessen fügt er willkührlich Anführungszeichen ein macht den Code noch sinnloser.
Ich komme eher aus der Java und PHP Ecke... muss man hier irgendwas beachten beim Zeilenwechsel? Gibt es irgend einenn Trick?
VIELEN Dank für Eure Hilfe
Jens
Mein Code:
Sub ErinnerungSenden()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "jens@supershapes.de" 'Adresse
.Subject = "Zahlungserinnerung" 'Betreffzeile
.Body = "Hallo [mitgliedsname],
nach Durchsicht meiner Unterlagen muss ich Ihnen leider mitteilen, dass bislang
die Zahlung für das Liebermann Erfolgsprogramm noch nicht eingegangen ist.
Sicherlich sind Sie bisher noch nicht dazu gekommen, den Betrag zu überweisen.
Sehen Sie diese Email daher als eine freundlich gemeinte Erinnerung!
Damit die Ware nun so schnell wie möglich auf den Versandweg zu Ihnen nach
Hause gebracht werden kann, bitte ich Sie noch heute eine Überweisung in
Höhe von [preis] vorzunehmen.
Grüße aus dem Siegerland
Markus Merheim
Versandabwicklung"
'Hier wird die Mail zuerst angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Anzeige