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, 20658 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Microsoft Office
gelöst CSV-Datei mit einem VBA Makro in Excel einlesen und leicht anpassen (5)

Frage von JoSiBa zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Microsoft Office
Word Dokument (vorausgefüllte Formulare) aus Excel Tabelle generieren (1)

Frage von Server4Alle zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (10)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...