Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hilfe mein Programm Faxt nicht?!?
Autor: Seebi
Datum: 31.10.02 13:07
hi @ all, ich würde gerne Faxe aus meinem Programm vollautomatisch versenden. der einzige befehl den ich gefunden habe funktioniert aber leider nicht. hat mir vielleicht jemand eine Idee wie ich dem Programm das Faxen beibringen kann?? Den Quelltext füge ich hinten an. danke 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 = OpenDatabase(Name:="E:\etz\Programmier Sprachen\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

Hilfe mein Programm Faxt nicht?!?

377

Seebi

31.10.02 13:07

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