Office: Email Body

Hallo zusammen,
ich bräuchte nochmal eure Hilfe bitte:
In einem bestehenden Makro, das unteranderem ein Email versendet,
müsste ich den Body anpassen.

Dort hinein sollen aus einem Sheet "Test" alle rot markierten Nummern aus der Spalte D untereinander kopiert werden.

Vielen Dank im Voraus

:)

 

Nachtrag:
rot markiert heißt, der Zellhintergrund ist rot

 

Morgen,

einfach mit einer Schleife die Hintergrundfarbe abfragen. So würde ich es zumindest machen^^ Wie du dir den String dann für den Body zusammenbaust und implementierst bekommst dann bestimmt selber hin oder nicht?

Auf jeden Fall kann ich dir es nicht genau für deinen Fall zusammenschustern, da ich dein Makro ja nicht kenne ohne Mappe *wink.gif*

Code:

Gruß
Daniel

 

Hallo Daniel,
ich scheitere irgendwie daran, die kopierten Zellen an den .Body zu übergeben:

Dim raZelle As Range, rngBereich As Range
Dim strBereich As String
For Each raZelle In Worksheets("Test").UsedRange '[D5*biggrin.gif*200]
If raZelle.Interior.ColorIndex = 3 Then
strBereich = strBereich & "," & raZelle.Address
End If
Next
strBereich = Right(strBereich, Len(strBereich) - 1)
Range(strBereich).Copy
Set rngBereich = Range(strBereich)

--- Es werden mir die roten Zeilen auch dann "als kopiert" in der Spalte angezeigt, im .Body wird jedoch nur die erste Zahl übernommen.

Mein Body schaut so aus:

.Body Range(strBereich)

Ich glaube der Fehler/unzureichende Code aus Set rngBereich = Range(strBereich)


Danke

 

Moin,
die letzten 2 Zeilen brauchst du nicht, also diese hier:
Code:

So erstellst du ne Mail mit den Inhalten und Zeilenumbruch nach jedem Inhalt.
Also einfach unter deinen Code, bzw. irgendwie in deinen integrieren *wink.gif*

Code:

Gruß
Daniel

 

Super Daniel,
hab also meine letzten 2 Zeilen auskommentiert, deinen Codeteil

For Each cell In Range(strBereich)
strBody = strBody & cell & ""
Next cell

anschließend eingefügt, und bei meinem Code für das objMail einfach
.Body = strBody gesetzt.

Es funktioniert!!!!!

Er schreibt jetzt ALLE rotmarkierten Nummern in das mail!
Jetzt muss ich es nur noch schaffen, dass die Nummern untereinander und nicht nebeneinander stehen.......

Vielen Dank nochmal

 

Hab ich hinbekommen:
einfach vorhandenen

strBody = strBody & cell & ""

um & Chr(10) erweitern!

Vielen Dank für deine Hilfe!

 

Perfekt, ja das "" hat er wegen der html Formatierung hier auch ausgeblendet, und funktioniert aber auch nur bei HTMLBody, wovon ich ausgegangen bin.
Aber du hast es ja auch so hinbekommen *wink.gif*