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 Word Dokument als Email senden

Mitglied: walty.ch

walty.ch (Level 1) - Jetzt verbinden

16.09.2013 um 14:52 Uhr, 7147 Aufrufe, 4 Kommentare

Habe ein Makro erstellt um das Dokument als Anhang zu senden. Nun sollte dies aber als PDF gesendet werden.



Sub EmailSenden()

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
ActiveDocument.SendMail
.Subject = "Word Test Dokument als Anhang versenden, WGM"
.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


Bin auf Hilfe angewiesen, da ich keine Ahnung von Makro seit Office2003 habe. Wir Benutzen Office 2007 und Ofice2013.
Dieses Makro habe ich mit verschiedenen Forenbeiträgen zusammen gezimmert! Und es funktioniert, aber als Word Datei.


Danke!
Mitglied: colinardo
16.09.2013, aktualisiert um 15:36 Uhr
Hallo walty.ch,
ab Word 2007 kannst du die integrierte Funktion zum Speichern als PDF verwenden und dann dieses Dokument an eine Outlook-Mail anhängen:
Beispiel:
01.
Sub SendMailasPDF() 
02.
    If ActiveDocument.Path = "" Then 
03.
        MsgBox "Dokument muss erst gespeichert werden!", vbExclamation 
04.
        Exit Sub 
05.
    End If 
06.
    Set objOL = CreateObject("Outlook.Application") 
07.
    strTempPath = Environ("TEMP") 
08.
    strFileNameNoExtension = Mid(ActiveDocument.Name, 1, InStrRev(ActiveDocument.Name, ".", -1, vbTextCompare) - 1) 
09.
    strPDFPath = strTempPath & "\" & strFileNameNoExtension & ".pdf" 
10.
    ActiveDocument.SaveAs2 FileName:=strPDFPath, FileFormat:=wdFormatPDF 
11.
    Set objMail = objOL.CreateItem(0) 
12.
    With objMail 
13.
        .Subject = "Dein Betreff" 
14.
        .Body = "Mit freundlichen Grüßen" 
15.
        .Attachments.Add strPDFPath 
16.
        .Display 
17.
    End With 
18.
    Set objOL = Nothing 
19.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: walty.ch
16.09.2013, aktualisiert um 16:10 Uhr
SUPER!!!

Vielen Dank, Deine Version ist nicht mal halb so gross wie meine (nicht funktionierende)!


Danke
Bitte warten ..
Mitglied: colinardo
16.09.2013 um 16:13 Uhr
Bitte den Beitrag noch als gelöst markieren.Danke.
Grüße Uwe
Bitte warten ..
Mitglied: kontext
17.09.2013 um 08:31 Uhr
Zitat von colinardo:
Bitte den Beitrag noch als gelöst markieren.Danke.
erledigt
Grüße Uwe
Gruß
kontext (Mod)
Bitte warten ..
Ähnliche Inhalte
Backup
Backup von WORD dokument
gelöst Frage von justdanBackup9 Kommentare

Hallo, Ein WORD Dokument wurde überschrieben! Kann ich irgendwie dieses DOC Backupen von gestern oder vorgestern machen? Also Veritas ...

Microsoft Office
Word Dokumente öffnen sich nicht
Frage von xbast1xMicrosoft Office5 Kommentare

Hallo zusammen, ein MA hat das Problem, dass wenn mehrere Word Dokumente geöffnet sind sich keine zusätzlichen öffnen lassen. ...

Microsoft Office
Saubere HTML aus Word-Dokument
Frage von peterpaMicrosoft Office19 Kommentare

Hallo, kennt jemand eine Möglichkeit ein Word-Dokument in eine "saubere" HTML-Seite zu wandeln? Ja es gibt die Möglichkeit diese ...

Microsoft Office

Word Rechtschreibprüfung funktioniert in EINIGEN Dokument nicht

gelöst Frage von KMP1988Microsoft Office2 Kommentare

Servus zusammen, ich habe ein Word-Dokument (erstellt in Word 2007) in dem keine Rechtschreibprüfung funktioniert. Wenn ich eine manuelle ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...