zuerst einmal vielen Dank euch Allen. Dank eurer Hilfe konnte ich schon einige nervige Excel-Probleme schnell und leicht lösen.
Leider konnte ich heute zu meiner Frage keinen passenden, schon offenen, Post finden.
Würde mich sehr freuen, wenn ihr mir bei meiner Frage helfen könntet...
Ich möchte, wie der Betreff schon erahnen lässt, über VBA aus Excel heraus eine Mail versenden und zwar mit einem Anhang -soweit so gut.
Hierzu habe ich auch einen Code gefunden und soweit wie es meine Möglichkeiten zulassen, auch etwas angepasst. Leider sind meine Möglichkeiten in Sachen VBA doch sehr begrenzt, weshalb es auch beim Abspielen des Codes einen Anwender- bzw. Objektfehler gibt.
Nun zu meiner Frage/Problem.
Ich habe eine Excelmappe mit nur einem Tabellenblatt.
In Spalte C (C2:C"x" - variabel) befinden sich der jeweilige Dateipfad zur jeweiligen Datei, [Pfad wird bereits via VBA ermittelt und in Spalte C ausgegeben] die ich gerne anhängen möchte.
Besonders: Eine Mail sollte immer nur an einen Adressaten (steht in Spalte B2:B"x"-variabel) versendet werden.
Beispiel: Der Adressat in B2 erhält als Anhang Dateipfad C2.
Hier der Code aus dem Editor kopiert:
Sub Outlook1()
Application.DisplayAlerts = False
Dim Anhang As String
Dim olapp As Object
Dim i As Integer
Anhang = Range("C" & i)
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = Cells(2, 2)
.Subject = "Liefervorschau vom " & Date
.Body = ""
.Display
.Attachments.Add Anhang
End With
Set olapp = Nothing
Application.DisplayAlerts = True
Next
End Sub
Mein Fehler in diesem Code liegt, gehe ich davon aus, in der Zeile: Anhang = Range("C" & i), da ich das "i" wohl nicht genau definiert habe. Ich hatte versucht mit "For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row" einen Loop zu erzeugen - Hier könnt ihr auch meine sehr begrenzten VBA-Skills wiedererkennen. Frage: Wie muss der Code aussehen, dass der Code für jede Zeile (Adressaten) eine neue Mail öffnet und die dazugehörige Datei angehängt wird für alle Zeilen bis eine Zeile ohne Inhalt erreicht wird.
Vielen Dank vorab und
Viele Grüße
Hendrik