Attatchment
09.07.2006 14:59:24
Michael
habe hier ein Makro welches mir ein Blatt versendet, möchte aber noch auswählen dass eine DAtei angehängt wird (am liebsten über einen Pfad in einer Zelle, so daß die DAtei automatisch eingefügt wird , Name der DAtei steht in einer anderen Zelle). Hier der COde: es wird gemeckert, dass withBlock oder Objvariable fehlt(?)
Sub Schaltfläche1_BeiKlick()
Dim Nachricht As Object, OutApp As Object
Dim AWS As Variant
'E-mail senden
Sheets("Test").Select
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = Sheets("Daten").Range("A4")
.Item.To = Sheets("Daten").Range("A1")
.Item.Subject = "Test"
End With
AWS = Application.GetOpenFilename(("Acrobat Reader (*.pdf), *.pdf"))
If AWS = False Then
MsgBox "Makro wird abgebrochen weil keine Datei gewählt wurde"
Exit Sub
End If
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.attachments.Add AWS
End With
End Sub
Woran liegt es ? Wie kann ich es erweitern für obengenannte Funktionalität?
DANKE im Voraus!
Michael