E-Mail Serienbrief mit Anhang (Mail Merge to E-mail with attachments)

[Henry168]

Hallo Zusammen,

habe flolgendes Problem.

Ich will Serienbriefe mit verschiedenen Anhängen zu verschiedenen Empfänger verschicken. Das versenden der Serienbriefe ohne Anhänge mit Lotus Notes 7 läuft ohne probleme. Ich habe auch eine Excel Tabelle als Quelldatei.

Im Netz fand ich folgenden Link: http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm. Aber er Hilft mir nicht weiter da ich bei mir kein Outlook drauf habe und nicht drauf installieren darf.

Ich sollte noch dazu sagen das ich Neuling was Notes und Excel Macros und Visual Basic angeht, da ich gelesen habe das sowas eigentlich nur mit Visual Basic funktioniert. Kleine Programme von Drittanbieter fallen auch raus.

Vielleicht kann mir jemand auf einer einfachen Weise helfen.

Danke schonmal

Gruß

Henry

[Peter Klett]

Das geht auch mit Lotus Script. Mittels OLE-Programmierung kannst Du direkt in Excel schreiben.

[koehlerbv]

Peter, ich verstehe das eher so, dass er via Notes Mails verschickt und eine seiner Datenquellen Excel ist. Dorthin schreiben muss er sicherlich nicht.
Was Henry aber zunächst verschweigt (oder ich habe es nicht verstanden): Wo liegen die als Attachment zu versendenden Dateien? Und ohne das zu wissen, kann man eher nix zur Frage sagen.

Bernhard

[Henry168]

Hallo Bernhard und Peter,

ich will nur über Notes verschicken. Das Erstellen der Serienbriefe mache ich mit Word. Die Quelledatei für die E-mail adressen und Namen, etc. ist ein Excel Sheet. Das verschicken der Serienbriefe ohne Anhänge über "merge to e-mail" funktioniert einwandfrei.

Aber bei den Serienbriefe müssen noch Anhänge dabei, die ich momentan in jeder einzelne Mail von meinem Laufwerk manuell in die Mail reinziehen muss. Das würde ich gerne so haben das die Anhänge automatisch in die Mails mit gezogen werden.

Falls ihr noch weitere Informationen braucht, meldet euch bitte.

Gruß

Henry

[Peter Klett]

Verstehe ich das richtig, dass die Aktivität in Word liegt? Also Du hast einen Serienbrief in Word, der beim Drucken nicht Papier produziert, sondern Mails erstellt? Und diese Mails sind nur deshalb in Notes, weil bei Euch mit Notes gemailt wird?

Wenn das so ist, musst Du das Problem in Word lösen, da kann ich Dir leider nicht wirklich helfen.

[Axel]

Guckst du z.B. hier:

http://atnotes.de/index.php/topic,46636.0.html
http://atnotes.de/index.php/topic,48306.0.html

... oder auch hier
http://www.redbooks.ibm.com/abstracts/sg245670.html


Axel

[Henry168]

@Peter: Ja genau es ist so wie du es beschrieben hast. Da muss ich mal paar Word Forums durchstöbern.

@Axel: Danke für die Links, ich schau mal ob ich da durchblicke.

Henry

[Henry168]

Hallo Zusammen,

ich habe immernoch das oben beschriebene Problem.

Kann mir jemand sagen wie ich folgendes Makro nicht für MS Outlook hinbekomme sondern für Notes 7.

Makro:

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 String

Set 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 If

MsgBox Source.Sections.Count - 1 & " messages have been sent."

'Clean up
Set oOutlookApp = Nothing

End Sub

Hoffe mir kann einer Helfen!!!! DANKE!!!

[Axel]

Schau dir den kompletten Thread (visual basic script – email generieren mit Anhang – Lotus Notes „Neues Nachricht") der hinter dem ersten Link in meiner Antwort steht genau an. Da steht eigentlich alles drin was du für's Erste brauchst.

Sorry, aber du kannst nicht erwarten, dass wir dir hier das komplette Script erstellen.

Axel

[Henry168]

OK, ich versuchs nochmal alleine. Danke.

[Driri]

Alternativ gibt es für so etwas auch fertige Tools, z.B. von Manfred Dillmann easyMail.

Wobei Du dann halt die Serienmail auch komplett in Notes erstellst. Ein Import der Adressen aus einer Excelliste ist natürlich möglich.

[Henry168]

Hallo,

ich habe folgendes Makro mal von meiner Vorgängerin erhalten:

Sub emailmergewithattachments()

Dim maildb    'As NotesDatabase' 'Die Maildatenbank
Dim doc    'As NotesDocument' 'Maildokument
Dim attachme    'As NotesRichTextItem' 'Anhang  Richtext
Dim session    'As NotesSession' 'Notes Session
Dim embedobj    'As NotesEmbeddedObject' 'Eingebettest Objekt
Dim ws    'AS NotesUIWorkspace' 'Front-End-User-Interface
Dim profile 'As NotesDocument
Dim rtsignature 'As NotesRichTextItem
Dim rtBody 'As NotesRichTextItem
Dim bolSignaturEnabled 'As Boolean
Dim uidoc 'As NotesUIDocument

Set session = CreateObject("Notes.NotesSession")
Set maildb = session.GetDatabase("", "")
maildb.OPENMAIL
' 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 If

MsgBox Source.Sections.Count - 1 & " messages have been sent."

'Clean up
Set oOutlookApp = Nothing

End Sub

Ich bekomme aber leider ein Fehler bei der Rot markierten Zeile. Kann mir einer sagen was das bedeutet?

DAnke.

Gruß

Henry

[ascabg]

Hallo,

Waere jetzt noch schoen zu wissen, was fuer einen Fehler genau Du in der besagten Zeile erhaelst?


Andreas

[Henry168]

Der Fehler lautet:

Run time error '424'

Object Required

Wie gesagt ich bin ein ecter Anfänger was das angeht.

[Bastel123]

Na, er erwartet ein object "source". Und das ist nirgends dimensioniert mit Dim, instantiiert oder von aussen übergeben.

Schau mal in die andern Scripte, das steht so was drin.

Sebastian