Forums Neueste Beiträge
 

makro fehler

12/01/2010 - 09:48 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 ?

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
13/01/2010 - 12:22 | Warnen spam
Hallo Michael,

ist den die Outlook-Bibliothek geladen? (Stichwort: Verweise)

Gruß
Kerstin

"Michael Feske" schrieb im Newsbeitrag
news:%23H%
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