Automatischer Faxversand

[Heidelberger]

Hallo,

 

wir haben eine NetPhone Anlage und möchten über Fremdsoftware automatisch Faxe versenden die als PDF Datei vorliegen.

Gibt es eine Möglichkeit die PDF Datei + eine zusätzliche Steuer-Datei mit der Faxnummer irgendwo in ein Verzeichnis abzulegen so dass diese automatisch versendet wird ?

 

Vielleicht hat ja schon jemand eine Lösung für so etwas...

 

 

[Mathew]

Hallo,

habe hier ein einfaches Beispiel, allerdings nicht für PDF Dateien sondern nur für DCX, PCX, TIFF (Group 3 Fax), SFF,  und BMP.

Ist ziemlich statisch, kann aber erweitert werden. Z.B. je nach Name des Faxes ein anderes Array für die Rufnummern oder mit einer Mail wenn Faxe rausgehen usw.

 

# Beispiel für den automatischen Faxversand mit Netphone Fax Client
#
# Parameter der FaxClient.exe
# FaxClient.exe /f:fax.txt /n:+491234567890
#
# Unterstützte Formate:
# DCX, PCX, TIFF (CCITT 1D/Huffman RLE), TIFF (Group 3 Fax), SFF, BMP.
#
# In welchem Ordner liegt das zu sendende Fax Dokument?
$ZuSenden = "C:\Faxausgang"

# In welchen Ordner sollen die gesendeten Faxe abgelegt werden?
$Ablage = "C:\Faxgesendet"

# Welche Datei soll gefaxt werden?
$FaxFile = "Fax.txt"

# An welche Rufnummern soll das Fax gesendet werden?
$Nummern = @("+4960317480", "+4960317481", "+4960317482")

# Wo liegt die FaxClient.exe?
$Command = 'C:\Program Files (x86)\NetPhone Client\FaxClient.exe'

# Prüfe ob die Datei existiert
if (Test-Path “$ZuSenden\$FaxFile”) 
	{
		Write-Host
		Write-Host "Sende Fax mit dem Inhalt $($FaxFile)"
		Write-Host
		
		# Rufnummern aus dem Array $Nummern auslesen
		$i = 0
		foreach ($Nummer in $Nummern)
			{
				Write-Host "an Rufnummer: $($Nummer)"
						
				# Dateien ohne Deckblatt senden
				$Parms = "/f:$ZuSenden\$FaxFile /n:$Nummer"
						
				# Fax Parameter splitten
				$Prms = $Parms.Split(" ")
							
				#Fax senden
				& "$Command" $Prms
				$i++
				Sleep 2
			}
			
		# Datum abfragen
		$DATUM = Get-Date -Format dd.MM.yyyy-HH-mm-ss
		
		# gesendetes Fax mit Datum versehen
		$NeuerName = "$Datum-$FaxFile"
		
		# und umbenennen
		Move-Item $ZuSenden\$FaxFile $ZuSenden\$NeuerName
		
		# gesendetes Fax mit neuem Namen in den Ordner Faxgesendet verschieben
		Move-Item "$ZuSenden\$NeuerName" "$Ablage\$NeuerName"
	
		# Info ausgeben was passiert ist
		Write-Host
		Write-Host "$FaxFile an $i Empfänger versendet."
		Write-Host
	}

else
	{
		# Wenn kein Dokument zum faxen gefunden wurde Fehler ausgeben
		Write-Host
		Write-Host -ForeGroundColor Red "Keine Datei '$($FaxFile)' zum faxen gefunden!)"
		Write-Host
	}

 

Gruß

Mathew