ich verschicke eine Mail mit variablen Daten an ca. 30 Kollegen. Lediglich der PDF-Anhang ist gleich..
Jetzt stelle ich im Test aber fest, dass es beim ersten Durchlauf reibungslos klappt, und ab dem zweiten hängt das PDF-Dokument zweimal, beim dritten dann dreimal usw. dran.
Gibt es keine Möglchkeit, Excel zu sagen, dass nach dem Durchlauf der Wert der Anlage auf Null / Nothing gesetzt wird, damit auch der zweie, dritte Kollege das PDF-Dokument nur einmal bekommt?
Da werde ich wahnsinning!
LG
Claudia
Private Sub Mail_versenden()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.ColorIndex = 3 Then
Blatt.Select
ActiveSheet.Range(Bereich).Select
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = _
"Hallo " & Cells(1, 17).Value & "," & vbCrLf & vbCrLf & _
"....." & vbCrLf & _
"......." & vbCrLf & _
vbCrLf & "Mit freundlichen Grüßen" & _
vbCrLf & "........." & vbCrLf & _
vbCrLf & Test
.Item.To = ActiveSheet.Range("S1").Value
.Item.Subject = Cells(1, 15).Value & " - Test ......................... (Stand " & Format(Date, _
"dd.MM.yyyy") & ")" 'anpassen
.Item.Attachments.Add "P:\Test.pdf"
.Item.Send
Application.Wait (Now + TimeValue("0:00:05"))
End With
End If
Next Blatt
End Sub