Code Erweiterung :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Code Erweiterung

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Manfred1
Newbie
Newbie

Anmeldedatum: 13.05.2008
Beiträge: 8

Verfasst am: 13.05.2008, 23:02

Hallo zusammen, bin neu hier und hoff auf Eure Hilfe.
Unter Windows xp home nutze ich Office 2003
Wie kann ich unteren VBA Code ergänzen, so dass
ich in Zelle A5 meiner Exeldatei eingebe "Tabelle 7"
und diese dann in Outlook angehängt wird ?

Bitte Ergänzungen im Code farblich markieren. Danke.
Gruß
Manfred1

Hier der Code:

Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now

Mail.To = "Mustermann@freenet.de"
Mail.cc = ""
Mail.bcc = ""

Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail wurde automatisch versandt."

Mail.Display
End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 14.05.2008, 11:57

Hallo!

Ich kann zwar nichts testen, da ich nicht mit Outlook arbeite, aber einen Anhang fügst du z.B. so ein:

Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = "Mustermann@freenet.de"
Mail.cc = ""
Mail.bcc = ""
Mail.Attachments.Add "C:\Pfad\Name.xls"
Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail wurde automatisch versandt."
Mail.Display
End Sub

Wenn der Dateiname aus A5 kommt, dann musst du ihn dir zusammenbauen:

"C:\Pfad\" & Range("A5") & ".xls"

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Erweiterung der heute funktion	goldfinger32	Microsoft Excel Hilfe	4	26.06.2008, 09:14
	Binär code eingeben und Buchstaben od...	Kekse	Microsoft Excel Hilfe	3	13.06.2008, 11:04
	VBA code für senden Formular über Lot...	wuffi	Microsoft Excel Hilfe	3	24.04.2008, 15:12
	Automatische Erweiterung der Zeile	Ag.man	Microsoft Excel Hilfe	5	05.02.2008, 01:35
	Ausblenden von Tabellenblättern über ...	yoda67	Microsoft Excel Hilfe	5	09.01.2008, 12:07

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de