title image


Smiley Re: Ich blick das nicht mit dem Serienbrief ich verzweifle fast..
Hallo Franz,



ich habe den code ein bissel für meine Zwecke angepaßt. Komm aber nicht Klar mit der Cf Serienbriefdatei.



Hier mein Code. Wäre dir dankbar, wenn du mal kurz drübergucken könntest..







Option Compare Database

Option Explicit



Public Sub mahnseriedezentral(rs As Recordset)

Dim cSerienbrief_Tempdatei As String

'Dim rs As DAO.Recordset

'cSerienbrief_Tempdatei: Konstante beinhaltet Export-Dateinamen

'If Dir(cSerienbrief_Tempdatei) = cSerienbrief_Tempdatei Then Kill cSerienbrief_Tempdatei

'On Error GoTo SB_err

DoCmd.OutputTo acOutputQuery, rs, acFormatRTF, cSerienbrief_Tempdatei

' Test, ob Kundenadressen selektiert wurden anhand der Dateigröße

Dim fs, f

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.Getfile(cSerienbrief_Tempdatei)

If f.Size < 1890 Then 'ca. Dateigröße bei ohne Kunde

MsgBox "Keine Kunden gefunden", vbExclamation + vbOKOnly, "Hinweis"

Kill cSerienbrief_Tempdatei

Exit Sub

End If

Dim wobj As New Word.Application 'Verweis auf Word-Library setzen

Dim Dok As Word.Document

Set Dok = wobj.Documents.Add("E:\Arbeitgeber\access\geschäft\kk\bürokommunikation\mahndez.dot") ' DotPathFile enthalt Word-DOT-Vorlage-Datei des Serienbriefes

With wobj

.Visible = True

.Activate



With .ActiveDocument.MailMerge

.OpenDataSource cSerienbrief_Tempdatei 'Datenquelle definieren

.Destination = wdSendToNewDocument ' Serienbriefe als Dokument bestimmen

.Execute

End With



'.ActiveDocument.SaveAs FileName:=SBDocPathFile, FileFormat:=wdFormatDocument

'.Quit SaveChanges:=False

End With

exit_sub:

Set wobj = Nothing

Set Dok = Nothing

Exit Sub

SB_err:

If Err.Number = 2501 Then Resume exit_sub 'Abruch der Parametereingabe/Abfrageausführung

MsgBox "Fehler: " & Err.Number & " " & Err.Description, vbExclamation + vbOKOnly, "Fehleingabe"

Resume exit_sub

End Sub






bin leider blutiger Anfänger, und dankbar dass es dieses Forum gibt

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: