FAX-Marker-Anbindung
18.08.2004 12:11:07
Jürg
Habe folgendes Problem:
Möchte per Button das aktive Sheet per Fax-Maker versenden.
Habe die Fax-Nummer in Spalte G an diversen Orten aufgelistet.
Ich habe nur einen Teil eines bereits bestehenden Makro's, das einen E-Mail-
Versand vornimmt. Nun möchte ich dieses Makro auf Fax-Maker erweitern.
Sub Fax_Versand()
Dim iZeile As Long
For iZeile = 1 To Range("g65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("g1:g" & iZeile), Cells(iZeile, 7)) = 1 Then
Application.ActivePrinter = "FAXmaker auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FAXmaker auf Ne00:"
? ' ActiveWorkbook.SendMail CStr(Cells(iZeile, 1)), "Fax-Versand"
? ''''''' ActiveSheet.Copy
? ''''''''' ActiveWorkbook.SendMail CStr(Cells(iZeile, 7)), "Fax-Makerbestellung - Beilage beachten!!!"
? ''''''''' Application.DisplayAlerts = False
? ''''''''' ActiveWindow.Close
? ''''''''' Application.DisplayAlerts = True
End If
Next iZeile
End Sub
Der File wird sauber ins Outlook gestellt - das funktioniert, doch die Fax-Nummmer aus Spalte G bringe ich nicht ins Feld AN und die Betreffzeile kann ich nicht ausfüllen.
Könnte mir jemand mein Makro so erweitern, das das AN-Feld und die Betreffzeile ausgefüllt wird und der Fax via Button der Outlook-Anwendung "Senden" ausgesandt wird?
Recht herzlichen Dank!
Gruss
Jürg
Anzeige