Hallo zusammen,
Ich habe ein Problem, zu dem ich bis jetzt leider keine Lösung gefunden habe.
Ich habe einen Code, der mir die relevanten Daten aus der Excel ausliest und diese dann in eine E-Mail einfügt und absendet.
Das Problem besteht darin, dass mir angezeigt wird, dass die Datei nicht gefunden werden kann, obwohl ich mir sicher bin, dass die Pfade stimmen müssen.
Daher die Frage: welcher Syntax müssen die Pfade in Excel folgen, damit VBA damit arbeiten kann?
Hier noch der Code, der bis auf diesen Fehler zu funktionieren scheint.
(Ich habe Namen in Spalte B, E-Mail in Spalte D und die Pfade in Spalte E)
(Beispielpfad: S:\800 Team\User\Thema\Excel Dateien Lieferanten\123456.xlsx (steht genauso in der Excel))
Sub SendEmail()
' Variablen definieren
Dim objOutlook As Object
Dim objMail As Object
Dim i As Integer
Dim strName As String
Dim strEmail As String
Dim strPath As String
' Objekt von Outlook erstellen
Set objOutlook = CreateObject("Outlook.Application")
' Schleife durch jede Zeile der Tabelle
For i = 2 To ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
' Name, E-Mail-Adresse und Pfad auslesen
strName = Cells(i, 2).Value
strEmail = Cells(i, 4).Value
strPath = Cells(i, 5).Value
' Neue E-Mail erstellen
Set objMail = objOutlook.CreateItem(0)
' Empfänger, Betreff und Anhang hinzufügen
With objMail
.To = strEmail
.Subject = "Zoll Daten"
.Attachments.Add strPath
.Body = "Sehr geehrte(r) " & strName & "," & vbNewLine & vbNewLine & _
"anbei finden Sie die von Ihnen angeforderten Zoll Daten." & _
vbNewLine & vbNewLine & "Mit freundlichen Grüßen," & _
vbNewLine & "Ihr Unternehmen"
.Send
End With
' Objekt freigeben
Set objMail = Nothing
Next i
' Objekt von Outlook schließen
Set objOutlook = Nothing
End Sub