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
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)
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]