Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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
GELÖST

Fehler beim Kompilieren End Sub erwartet

Frage Microsoft Microsoft Office

Mitglied: walty.ch

walty.ch (Level 1) - Jetzt verbinden

09.09.2013 um 11:59 Uhr, 3374 Aufrufe, 2 Kommentare

Sub DocAlsAnhangSenden()
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then
MsgBox "Dokument muss erst gespeichert werden"
Exit Sub
End If
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.To = "test@example.com" '<-- E-Mail-Adresse
.Subject = "Word Dokument als Anhang versenden"
.Attachments.Add Source:=ActiveDocument.FullName, _
Type:=olByValue, _
DisplayName:="Dokument als Attachment"
.Send
End With
If bStarted Then
oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

Dies ist der Text von PCtipp.ch, mit der Antwort: Funktioniert einwandfrei!
Bei mir kommt obige Fehlermeldung, die ich mit End Sub anstelle von Exit Sub (probiere) korrigiere.
Dann kommt die Fehlermeldung: Code kann im Haltemodus nicht ausgeführt werden. > Neustart von Word (2013) > Es kommt wieder der Fehler:
Fehler beim Kompilieren End Sub erwartet.
Setze ein End Sub in die zweite Zeile.

Kein Fehler mehr, keine Reaktion!

Wie versende ich mit einem Makro ein Word (2013) Dokument als Email (oder Email Anhang) !??!


Mitglied: 106543
09.09.2013 um 14:02 Uhr
Kein Fehler mehr, keine Reaktion!

Kann dir sagen, warum du keine Fehlermeldung bekommst.
Wenn du "On Error Resume Next" drin hast ist das die Holzhammermethode. Sobald ein Fehler auftritt, wird dieser Ignoriert und es wird weitergearbeitet. Lass das weg und schau was für eine Fehlermeldung du bekommst.

Grüße
Exze
Bitte warten ..
Mitglied: walty.ch
12.09.2013 um 12:06 Uhr
Es funktioniert jetzt! Es sieht so aus

Sub DocAlsAnhangSenden()
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then
MsgBox "Dokument muss erst gespeichert werden"
Exit Sub
End If
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.To = "tester@versuch.ch" '<-- E-Mail-Adresse
.Subject = "Word Test Dokument als Anhang versenden"
.Attachments.Add Source:=ActiveDocument.FullName, _
Type:=olByValue, _
DisplayName:="Dokument als Attachment"
.Body = "Besten Dank für Ihren Auftrag." & Chr(13) & _
"Mit freundlichen Grüssen" & Chr(13) _

.Send
End With
If bStarted Then
oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub


Was ich nicht geschafft habe ist eine dritte Zeile nach Mit freundlichen Grüssen. Keine Ahnung warum.

Bin aber auch erst wieder am "Neu Anfang", nach zehn Jahren Unterbruch. Da hat sich einiges geändert.

Nehme mal erwähnte Zeile noch raus. mal schauen was geht!??!

Erst mal Danke.
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Fehler beim Kompilieren (5)

Frage von Nid1979 zum Thema Microsoft Office ...

Datenbanken
gelöst Access 2010 Fehler beim kompilieren (2)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Java
Java kompilieren (5)

Frage von Zockervogel zum Thema Java ...

Microsoft Office
gelöst Excel Marko "private sub" bearbeiten (2)

Frage von ArnoNymous zum Thema Microsoft Office ...

Neue Wissensbeiträge
Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(25)

Information von SeaStorm zum Thema Utilities ...

Windows Server

Exchange Server 2016 Probleme auf Server 2016 mit iOS 11 Mailapp

Information von Oneplus zum Thema Windows Server ...

Internet

Pirate Bay lässt heimlich Krypto-Miner auf Nutzer-PCs laufen

(5)

Information von BassFishFox zum Thema Internet ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Utilities
CCleaner 5.33 mit Malware infiziert (24)

Information von SeaStorm zum Thema Utilities ...

JavaScript
gelöst Kopierschutz auf Webseite (13)

Frage von honeybee zum Thema JavaScript ...

Windows Server
Änderung Subnetz an AD Standort (13)

Frage von hansdampf zum Thema Windows Server ...