Microsoft Excel

Herbers Excel/VBA-Archiv

FAX-Marker-Anbindung

Betrifft: FAX-Marker-Anbindung von: Jürg
Geschrieben am: 18.08.2004 12:11:07

Hallo liebes Excel-Forum!

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
  


Betrifft: AW: FAX-Marker-Anbindung von: Jürg
Geschrieben am: 20.08.2004 14:08:26

Ist gelöst!!!