Email versenden
01.07.2004 17:44:36
Stefan
im Forum habe ich ein feines VBA-Teilchen gefunden. Nur leider bin ich nicht in der Lage dieses so umzuschreiben, dass es meine Bedürnisse befriedigt...deswegen wende ich mich hilfesuchend an euch:
folgendes makro habe ich gefunden
Sub Sample()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
.BCC = Cells(iCounter, 1).Value
.Subject = "Kosteninformation"
.Body = Cells(iCounter, 2).Value
.Send
Next iCounter
End With
Set olMailItm = Nothing
Set olApp = Nothing
End Sub
Meine Probleme:
1. Wie kann ich im Body-Bereich den Bezug auf mehrer Zellen erstellen. Ich möchte gerne noch Werte aus den nachfolgenden Spalten einfügen. Das einfügen einer weiteren Befehlszeile a la
.Body = Cells(iCounter, 3).Value führte nicht zu gewünschten Erfolg.
Mein Ziel ist es mehrer Werte aus mehrere Zellen zu integrieren und das ganze optisch aufzubereiten (leerezeilen etc.)
2. beim aufrufen des makros werde ich informiert, dass eine Anwendung automatishc emails versendet. kann man das unterbinden (nicht generell, nur beim öffnen dieser datei ?)
Der zweite Punkt ist nicht so wichtig......
Danke euch für jeden Tip.
Gruß
Stefan