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

Word-Makro auf Outlook verweisen

Frage Microsoft Microsoft Office

Mitglied: zik101

zik101 (Level 1) - Jetzt verbinden

16.02.2009, aktualisiert 10.05.2009, 4430 Aufrufe, 1 Kommentar

Guten Tag,

ich möchte gerne durch ein Button in einem Word Dokument auf Outlook verweisen und das automatisch die Mail an eine E-Mail Adresse versendet wird programmieren.
Habe hier schon ein Code.
Nur leider kommt dieser Code schon nicht bis zum Abspeichern der Datei.

Hat jemand einen Rat?

01.
 
02.
Private Sub CommandButton1_Click() 
03.
 
04.
Dim m_Outlook As Outlook.Application 
05.
Dim m_MailItem As Outlook.MailItem 
06.
Dim m_strAblageOrt As String 
07.
 
08.
Set m_Outlook = New Outlook.Application 
09.
Set m_MailItem = m_Outlook.CreateItem(olMailItem) 
10.
 
11.
m_strAblageOrt = "C:\Temp" 'Ablageort der Word-Datei 
12.
 
13.
ActiveDocument.SaveAs m_strAblageOrt 
14.
 
15.
m_MailItem.To = "[[E-MAil Adresse enfernt]]" 
16.
m_MailItem.Subject = "BeispielBetreff" 
17.
m_MailItem.Attachments.Add m_strAblageOrt & ".doc" 
18.
m_MailItem.Display 'geht auch ohne display 
19.
m_MailItem.Send 
20.
 
21.
Set m_MailItem = Nothing 
22.
Set m_Outlook = Nothing 
23.
 
24.
 
25.
'Dim m_Outlook As Outlook. 
26.
 
27.
End Sub 
28.
 
Vielen Dank im Vorraus!!!

zik101
Mitglied: NetWolf
16.02.2009 um 12:09 Uhr
Hallo zik101,

was mir so auffällt: du sicherst dein Dokument als Ablageort (=Pfad) nicht als Dokument und versuchst dann den Ablageort (=Ordner) zu versenden.


Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)
Bitte warten ..
Ähnliche Inhalte
Administrator.de Feedback
gelöst Im Zitat auf den zitierten Mitglied verweisen (4)

Frage von itebob zum Thema Administrator.de Feedback ...

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

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

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Microsoft Office
gelöst Makro wird beim öffnen Vorlage nicht ausgeführt (8)

Frage von Sunny89 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...