Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Makro: geöffnetes Excel Dokument per Anlage mit OL versenden

Frage Entwicklung Basic

Mitglied: adminst

adminst (Level 2) - Jetzt verbinden

20.07.2005, aktualisiert 05.12.2006, 21884 Aufrufe, 6 Kommentare

Hallo zusammen,

Kann mir jemand schnell ein Makro zeigen/posten wo ich sehe, wie man per Makro ein neues Outlook Mail macht und das geöffnete Excel Dokumen als Anhang anfügt.

Mailadresse: test@test.ch
Subject: Neue Büromaterialbestellung
Text; Guten Tag Frau Rommel, es wurde gerade eine neue Büromaterialbestellung erfasst.

Vielen Dank für eure Hilfe!
Mitglied: 8644
21.07.2005 um 09:34 Uhr
Hi,

versuch mal folgendes:

Sub Mail_Senden()
ActiveWorkbook.SendMail "test@test.ch", "Neue Büromaterialbestellung", False

End Sub


Der dritte Parameter legt fest, ob du eine Empfangsbestätigung erhalten willst.

Wie man den Body(Text) sendet habe ich nicht raus gefunden, da kannst du dir vielleicht
mit einer Signatur in OE helfen

Gruß Psycho
Bitte warten ..
Mitglied: adminst
21.07.2005 um 09:36 Uhr
Habe neues Makro Entwickelt:

Sub AktuellesDokument_Als_Email_Senden()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.To = "rommel@xyz.ch"
.Subject = "Post ist da!"
.Body = "Das Dokument finden Sie im Anhang." 'Das ist der Text
.Attachments.Add ThisWorkbook.FullName
.Display 'hier geht auch .Send, aber Outlook zeigt dann eine Warnung an "Zugriff durch fremde Anwendung etc."
End With

'Senden der Tastenkombination ALT + S, um die angezeigte Email zu "senden" (liegt danach im Postausgang)
'dies ist nur nötig, wenn Sie oben NICHT .Send verwendet haben, Sie können beide Varianten testen...
SendKeys "%s", True


Set objMail = Nothing
Set objOutlook = Nothing

End Sub
Bitte warten ..
Mitglied: DCM2802
13.09.2005 um 12:39 Uhr
Hallo,
bei den beiden Beispielen hier, habe ich bei Word
Dokumenten das Problem immer die Meldung "Laufzeitfehler 424" - " Objekt erforderlich"
zu bekommen.

Was mache ich falsch?

Gruß
Dirk
Bitte warten ..
Mitglied: adminst
17.09.2005 um 21:55 Uhr
Dieses Makro ist für Excel programmiert (Siehe z.B workbook....)
Bitte warten ..
Mitglied: DCM2802
17.09.2005 um 22:25 Uhr
Ok, das habe ich kapiert. Gibts denn auch eines für WORD?
Bitte warten ..
Mitglied: colinardo
05.12.2006 um 16:31 Uhr
Hallo,
bei den beiden Beispielen hier, habe ich bei
Word
Dokumenten das Problem immer die Meldung
"Laufzeitfehler 424" - "
Objekt erforderlich"
zu bekommen.

Was mache ich falsch?

Gruß
Dirk

Du hast das Dokument vorher nicht gespeichert , und Outlook findet dann keine Datei zum anhängen !!!

für Word nimmst du folgendes Makro:


01.
 
02.
Sub AktuellesDokument_Als_Email_Senden() 
03.
 
04.
Set objOutlook = CreateObject("Outlook.Application") 
05.
   Set objMail = objOutlook.CreateItem(olMailItem) 
06.
   With objMail 
07.
     .To = "rommel@xyz.ch" 
08.
     .Subject = "Post ist da!" 
09.
     .Body = "Das Dokument finden Sie im Anhang." 'Das ist der Text 
10.
     .Attachments.Add ActiveDocument.FullName 
11.
     .Display 
12.
   End With 
13.
End Sub 
14.
 
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel-Dokument zu PDF umwandeln funktioniert nicht korrekt (10)

Frage von imebro zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro zum Sortieren von Spalten an größeres Dokument Anpassen (2)

Frage von Rolfor zum Thema Microsoft Office ...

VB for Applications
Fusszeile mit PageSetup mit VBA in Excel Makro funktioniert nicht? (5)

Frage von HerrHart zum Thema VB for Applications ...

Erkennung und -Abwehr
Makro in manipuliertem Word-Dokument will Schadsoftware am Mac verbreiten

Link von VGem-e zum Thema Erkennung und -Abwehr ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

LAN, WAN, Wireless
Rogue Access Point (20)

Frage von Axel90 zum Thema LAN, WAN, Wireless ...

Webbrowser
Windows 7 unbeliebte Internetseite sperren (13)

Frage von Daoudi1973 zum Thema Webbrowser ...

E-Mail
Fake E-Mail in Outlook für Demonstartionszwecke (12)

Frage von sascha382 zum Thema E-Mail ...