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

Word Dokument als Email senden

Frage Microsoft Microsoft Office

Mitglied: walty.ch

walty.ch (Level 1) - Jetzt verbinden

16.09.2013 um 14:52 Uhr, 6266 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
Microsoft Office
Saubere HTML aus Word-Dokument (19)

Frage von peterpa zum Thema Microsoft Office ...

Windows 7
Email senden, wenn Rechner mehr als 30min im Ruhezustand (3)

Frage von FOrtwein zum Thema Windows 7 ...

Erkennung und -Abwehr
Makro in manipuliertem Word-Dokument will Schadsoftware am Mac verbreiten

Link von VGem-e zum Thema Erkennung und -Abwehr ...

Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Windows 10
Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Exchange Server
Exchange Postfach leeren - nicht löschen (10)

Frage von AndreasOC zum Thema Exchange Server ...