Nicht-Exceldateien aus Excel versenden

23/01/2008 - 03:05 von Rolf | Report spam
Ich möchte per VBA innerhalb einer Exceldatei UR.xls (Excel 2003) eine
ZIP-Datei gleichen Namens, also UR.zip, im selben Ordner über Outlook Express
versenden. Ich habe bisher nur Hinweise zum Versenden derselben, der
geöffneten Exceldatei gefunden. Wie können andere, nicht geöffnete
Nicht-Exceldateien als Anhang einer Mail versandt werden.
 

Lesen sie die antworten

#1 Wolfgang Kutsche
23/01/2008 - 18:53 | Warnen spam
Hallo Rolf,

hier ein Beispielcode:

Sub MailMitAnhang()
'zum Erstellen von Mail mit Anhang
Dim objOutlook As Outlook.Application
Dim oItem As Outlook.MailItem

'** Prüfen, ob Outlook làuft
'... wenn nicht, Outlook starten
On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set objOutlook = CreateObject("Outlook.Application")
End If
Set oItem = objOutlook.CreateItem(olMailItem)
With oItem
'** Betreff eintragen
.Subject = "Betreff"
'** Adresse eintragen
.To = ""
'** Text der Mail übernehmen
Text = "Lieber ..." _
& vbNewLine _
& vbNewLine _
& "angehàngt findest Du ..." _
& vbNewLine _
& vbNewLine
.Body = Text
'** Anhang "C:\Test.pdf" übernehmen (ist nicht geöffnet)
.Attachments.Add "C:\Test.pdf", olByValue, 1
'** Mail anzeigen
.Display
'** ... oder Mail an Outlook senden
'.Send
End With
Set oItem = Nothing
End Sub

Wichtig:
- auf "Microsoft Outlook 11.0 Object Library" verweisen
- im VBA-Editor … Extras … Verweise
- hier sind keine Kontrollen eingebaut, die prüfen, ob
der Anhang auch existiert.

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de


"Rolf" wrote:

Ich möchte per VBA innerhalb einer Exceldatei UR.xls (Excel 2003) eine
ZIP-Datei gleichen Namens, also UR.zip, im selben Ordner über Outlook Express
versenden. Ich habe bisher nur Hinweise zum Versenden derselben, der
geöffneten Exceldatei gefunden. Wie können andere, nicht geöffnete
Nicht-Exceldateien als Anhang einer Mail versandt werden.


Ähnliche fragen