Top-Themen

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

Mitglied: walty.ch

walty.ch (Level 1) - Jetzt verbinden

09.09.2013 um 11:59 Uhr, 3835 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
DSL, VDSL

Telefondose erwartet - Undefiniertes bekommen

gelöst Frage von CometcolaDSL, VDSL6 Kommentare

Hallo zusammen, habe bei einem Freund diese Konstruktion gefunden und wollte mal in die Runde fragen, ob mir jemand ...

Webentwicklung

Wordpress: ob end flush

Frage von BadgerWebentwicklung4 Kommentare

Hallo Leute, ich habe wie viele andere bei Wordpress bei einigen Plugins (z.B. dieses) das Problem, dass bei aktivierten ...

Microsoft Office

Excel Marko "private sub" bearbeiten

gelöst Frage von ArnoNymousMicrosoft Office2 Kommentare

Hallo, ich stehe auf dem Schlauch. Habe hier eine Exceltabelle mit einem Makro, dass mittels "private sub" nicht sichtbar ...

Visual Studio

Sub für Speicherung der Settings

Frage von ahstaxVisual Studio1 Kommentar

Tach, ist es irgendwie sinnvoll möglich, ein Sub für die Speicherung von Settings zu schreiben? Ich hab nachfolgendes probiert: ...

Neue Wissensbeiträge
Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 3 TagenHumor (lol)6 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 4 TagenErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 7 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor!
Tipp von Criemo vor 7 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Heiß diskutierte Inhalte
Windows Server
Dienstnamen und oder Deutsche und Englische Beschreibung in services.msc gleichzeitig anzeigen
gelöst Frage von vafk18Windows Server23 Kommentare

Guten Morgen, die Suche nach Diensten in services.msc gestaltet sich immer wieder schwierig, weil mir je nach Aufgabe die ...

Windows Server
Kleine Umfrage: Windows Server Desktop oder Core?
Frage von doomfreakWindows Server18 Kommentare

Hey :) Ich wollte mal eine kleine Umfrage hier starten. Ich bin schon etwas länger auf dieser Seite hier ...

JavaScript
Javascript: WebSql
gelöst Frage von internet2107JavaScript17 Kommentare

Guten Morgen zusammen, zunächst einmal einen schönen dritten Advent. Ich habe ein Problem mit Javascript und WebSQL. Bisher habe ...

Microsoft
Lizenzplausibilisierung oder Spam?
Frage von lordimacMicrosoft14 Kommentare

Liebe Forengemeinde, uns erreichte die Tage eine Mail bezüglich einer Lizenzplausibilisierung durch einen Microsoft SAM Partner. Die Meldung im ...