Domino 9 und frühere Versionen > ND7: Administration & Userprobleme

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

<< < (2/3) > >>

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.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete