Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speicher löschen

Speicher löschen
Claudia
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Problem ist gelöst
12.10.2010 23:01:50
Claudia
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige