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, 21041 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
Ä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 Makro zum Sortieren von Spalten an größeres Dokument Anpassen (2)

Frage von Rolfor zum Thema Microsoft Office ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (2)

Frage von Raptox zum Thema VB for Applications ...

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

Frage von packmann2016 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Zusammenarbeit
Als Administrator im Großraumbüro (30)

Frage von Dopamin85 zum Thema Zusammenarbeit ...

Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...