VBA Mit AutoClose e-mail an eine bestimmte Adresse

Computer: Software & Programmierung Visual Basic
1

Hi,

mit der AutoClose-Prozedur möchte ich das jeweils aktive Dokument immer an eine bestimmte Adresse senden, z.B. Vertragsabteilung@MeierGmbH. Wie müßte der Code ausschauen:

Sub AutoClose()
Activedocument.Sendmail
… und dann??
End Sub

Gruß
Wilhelm

2 
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objMapiFolder As Outlook.MAPIFolder
Dim objMailItem As Outlook.MailItem

Set objApp = New Outlook.Application
Set objNS = objApp.GetNamespace("MAPI")
Call objNS.Logon

Set objMapiFolder = objNS.GetDefaultFolder(olFolderOutbox)
Set objMailItem = objMapiFolder.Items.Add

With objMailItem
 .To = "[email protected]"

 .Subject = "Das ist der Betreff"
 .Body = "Das ist der Mail-Text!"

 Call .Attachments.Add(ActiveDocument.Path & "\" & ActiveDocument.Name)
 Call .Send
End With

Mit diesem Coding funktioniert es, wenn Du das Makro in dem Dokument selber, was verschickt werden soll, durchführst. Ob’s mit der AutoClose() funktioniert überlasse ich Dir!!

greets from michL (vienna)

3

Hi michL,
wegen Deiner gehobenen Augenbraue bei Autoclose habe ich den Code in eine Schaltfläche einer benutzerdefinierten Symbolleiste gelegt.

Bereits beim Abarbeiten der ersten Zeile

Dim objApp As Outlook.Application

kommt eine Fehlermeldung:

Fehler beim Kompilieren
Benutzerdefinierter Typ nicht definiert.

Kannst Du noch einmal helfen?
Danke u. Gruss
Wilhelm

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]