Datei über Outlook versenden
28.12.2007 22:14:00
Wolfgang
ich hatte gehofft, den untenstehenden Code so umstellen zu können, dass die unter dem Pfad in Tabelle "Zeile", Zelle "A30" angegebene Mappe "Testmappe" in Outlook kopiert wird. In der Folge soll dann Outlook geöffnet werden, allerdings nicht direkt ein automatischer Versand erfolgen. Was müßte ich verändern? - Danke auch jetzt schon wieder für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Option Explicit
Sub OutlookVersenden()
Dim PathName As String, strdatei As String
PathName = ThisWorkbook.Worksheets("Zeile").Range("A30").Value
strdatei = "Testmappe"
Dim strFile As String
strFile = PathName & strdatei & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy 'hier weiß ich nicht weiter
With ActiveWorkbook 'hier auch nicht - es sollte nun die Datei Testmappe in Outlook eingefü _
gt werden
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Application.ScreenUpdating = True
End Sub
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "info@mustermann.de"
.Subject = "Test"
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Anzeige