Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Gibt es eine alternative zu .SendFax ???
Autor: Seebi
Datum: 31.10.02 11:32
Hi @ all, Ich hab ein Problem, und zwar möchte ich Serienfaxe vollautomatisch versenden. Alles funktioniert eigentlich auch nur der Befehl .SendFax wird nicht ausgeführt, und ich finde auch kein passendes Äquivalent dazu. Hat vielleicht jemand eine Idee wie ich das Fax anders versenden kann??? thx schon mal Seebi Sub MailMergeFax() GetRecipients Open "C:\TempLogFile\AdressNr.txt" For Input As #1 While Not EOF(1) Input #1, p_sAdressNr ActiveDocument.MailMerge.OpenDataSource Name:="E:\etz\Programmier Sprachen\SQL\Serienbrief.mdb", _ Connection:="TABLE Adressen", SQLStatement:="SELECT * FROM [Adressen]", _ SQLStatement1:="WHERE AdressNr = " & p_sAdressNr ActiveDocument.MailMerge.Execute ActiveDocument.ActiveWindow.Caption = "FaxVorlage" Dim SQLStatement As String, p_sFaxAdress As String Dim iAdresse As Integer Dim db As Object Dim rsAdress As Object Dim AApp As Object Set AApp = CreateObject("Access.Application") iAdresse = FreeFile Set db = OpenDatabas(Name:="E:\etz\ProgrammierSprachen\SQL\Serienbrief.mdb") SQLStatement = "SELECT * FROM Adressen " SQLStatement = SQLStatement & "WHERE AdressNr = " & p_sAdressNr Set rsAdress = db.OpenRecordset(SQLStatement, dbOpenDynaset) p_sFaxAdress = rsAdress.Fields("Fax") rsAdress.Close db.Close Set rsAdress = Nothing Set db = Nothing Set AApp = Nothing Windows("FaxVorlage").Activate ActiveDocument.SendFax Address:=p_sFaxAdress ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges Wend Close #1 End Sub

Gibt es eine alternative zu .SendFax ???

644

Seebi

31.10.02 11:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen