word 2003 makro fehler

12/01/2010 - 12:11 von Michael Feske | Report spam
Hallo alle zusammen,
ich habe ein nettes Makrio gefunden. Wenn ich es starte erhalte ich jedoch
leider den Fehler:
Fehler beim kompilieren, Benutzerdefinierter Typ nicht definiert für die
Zeile Dim oOutlookApp As Outlook.Application , woran liegt das ? Ich vermute
es hat etwas mit dem Verweis auf Outlook in der Bibliothek zu tun, doch wie
kann ich den prüfen, ich konnte den Artikel an dieser Stelle nicht
nachvollziehen.

Gruß
Micha
Sub emailmergewithattachments()Dim Source As Document, Maillist As Document,
TempDoc As Document
Dim Datarange As Range
Dim i As Long, j As Long
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
Dim mysubject As String, message As String, title As StringSet Source ActiveDocument' Check if Outlook is running. If it is not, start Outlook
On Error Resume Next
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If' Open the catalog mailmerge document
With Dialogs(wdDialogFileOpen)
.Show
End With
Set Maillist = ActiveDocument' Show an input box asking the user for the
subject to be inserted into the email messages
message = "Enter the subject to be used for each email message." ' Set
prompt.
title = " Email Subject Input" ' Set title.
' Display message, title
mysubject = InputBox(message, title)' Iterate through the Sections of the
Source document and the rows of the catalog mailmerge document,
' extracting the information to be included in each email.
For j = 1 To Source.Sections.Count - 1
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.Subject = mysubject
.Body = Source.Sections(j).Range.Text
Set Datarange = Maillist.Tables(1).Cell(j, 1).Range
Datarange.End = Datarange.End - 1
.To = Datarange
For i = 2 To Maillist.Tables(1).Columns.Count
Set Datarange = Maillist.Tables(1).Cell(j, i).Range
Datarange.End = Datarange.End - 1
.Attachments.Add Trim(Datarange.Text), olByValue, 1
Next i
.Send
End With
Set oItem = Nothing
Next j
Maillist.Close wdDoNotSaveChanges' Close Outlook if it was started by this
macro.
If bStarted Then
oOutlookApp.Quit
End IfMsgBox Source.Sections.Count - 1 & " messages have been sent."'Clean
up
Set oOutlookApp = NothingEnd Sub--schnapp

quelle http://word.mvps.org/FAQs/MailMerge...hments.htm
 

Lesen sie die antworten

#1 Kerstin
14/01/2010 - 14:31 | Warnen spam
Hallo Michael,

kann es sein, dass die Outlook-Bibliothek nicht geladen ist?
Alt+F11 - Extras - Verweise - Microsoft Outlook xx wàhlen

Gruß
Kerstin

"Michael Feske" schrieb im Newsbeitrag
news:%
Hallo alle zusammen,
ich habe ein nettes Makrio gefunden. Wenn ich es starte erhalte ich jedoch
leider den Fehler:
Fehler beim kompilieren, Benutzerdefinierter Typ nicht definiert für die
Zeile Dim oOutlookApp As Outlook.Application , woran liegt das ?


...

Ähnliche fragen