Blatt mit Outlook Express versenden
WalterK
Ich suche eine Möglichkeit, das Blatt Tabelle1 aus einer Mappe per Mail zu versenden. Es sollen keine Formeln mehr enthalten sein sondern nur noch Werte. Die Formatierungen sollen aber bestehen bleiben.
Jetzt habe ich den folgenden Code in der Recherche gefunden und wollte ihn testen, ob er für mich geeignet ist. Der Code öffnet aber Outlook, bei mir sollte er aber mit Outlook Express das Mail versenden.
Was muss ich ändern damit Outlook Express zum versenden verwendet wird?
Sub senden()
Dim olApp As Object
Dim olMail As Object
Dim blnQuit As Boolean
Dim wb As Workbook
Dim strDatei As String
'Laufzeitfehler übergehen
On Error Resume Next
'Aktive Outlookinstanz übernehmen
Set olApp = GetObject(, "Outlook.Application")
'Falls Outlook nicht geöffnet
If olApp Is Nothing Then
'Merkvariable setzen
blnQuit = True
'Neue Outlookinstanz öffnen
Set olApp = CreateObject("Outlook.Application")
End If
'Bei Laufzeitfehlern wieder abbrechen
On Error GoTo 0
'Zu versendentes Tabellenblatt in eigene Datei auslagern
Sheets("Tabelle1").Copy
'Die Datei temporär speichern
Workbooks(Workbooks.Count).SaveAs Filename:="C:\Temp\Temp.xls"
'Neue Nachricht in Outlook erzeugen
Set olMail = olApp.CreateItem(0)
With olMail
'Zu versendende Datei in Variable übergeben
Set wb = Workbooks(Workbooks.Count)
'Empfänger festlegen
.To = ActiveSheet.Range("B10")
'Betreff festlegen
.Subject = ActiveSheet.Range("E21")
'Zu versendende Datei als Mailanhang beifügen
.Attachments.Add wb.FullName
'Fertige Mail anzeigen
.Display
End With
'Pfad und Name der temporären Datei in Variable übergeben
strDatei = wb.FullName
'Temporäre Datei schließen, ohne zu speichern
wb.Close False
'Temporäre Datei löschen
Kill strDatei
'Wenn neue Outlookinstanz geöffnet, diese wieder schließen
If blnQuit Then olApp.Quit
'Speicherbereiche freigeben
Set wb = Nothing
Set olMail = Nothing
Set olApp = Nothing
End Sub
Anzeige