2000 kişiye fax

[kaspersky]

Arkadaşlar elimde 3 sayfadan oluşan bir belge var. Bu belgenin başında kişinin adı, soyadı ... gibi doldurulması gereken boşluklar var. Excel dosyamda ise 2000 kişiye ait bilgiler ve fax numaraları var. İstediğim şey bu 2000 kişiye belgenin başında kendi isimleri olan yani kişiye özel toplu fax çekmektir. Yani her fax çektiğim şahıs fax belgesinde kendi adını görebilmelidir.Bu konuda bana yardımcı olabilirmisiniz?

 

[Recep İpek]

Fax biraz zorda, mail atmak isterseniz çok kolay.


http://www.excel.web.tr/showthread.php?t=22897

 

[kaspersky]

Maalesef benim mail değil fax çekmem lazım.

Fax biraz zorda, mail atmak isterseniz çok kolay.


http://www.excel.web.tr/showthread.php?t=22897

 

[Fly_butterfly]

Emin değilim ama aklıma bir yol geliyor. Belki biraz zaman alabilir ama olabilir diye düşünüyorum.
1. Adres listenizi bir kere, outlook adres listenize kaydetmeniz gerekiyor. Bunun içinde önce outlook tan veri al/gönder işlemiyle adres defterinin formatını excele aktarmanız olacak ve bu formata uygun olarak bir kere de olsa elinizdeki bilgileri bu formata uyarlamanız olacaktır. Sonra da kaydedip tekrardan aynı veriyi outlook içine veri al şeklinde girmeniz olacaktır.
Bundan sora ise,
2. Mail merge yöntemiylede excel dosyanızdaki çalışmayı mail formatına çekip kime kısmından da elinizdeki adreslerini girdiğiniz faks numaralarına mail yoluyla faks olarak geçecektir.
Tabi bunun için bilgisayardan dışarıya çevirmeli ağ bağlantısı olması gerekiyor. Eğer varsa şirketinizde kurulu mail server çok işinize yarar diye düşünüyorum.

Nacizane çözüm yolum bu olacaktır. Umarım yardımcı olmuşumdur.

 

[modalı]

Eğer Access üstünden faks yollamak işinizi kolaylaştıracaksa yardımcı olabilirim.

İyi çalışmalar

 

[modalı]

Bir de aşağıdaki linki inceleyin:

http://support.microsoft.com/kb/210009/en-us

 

[Erdinç E. Karaçam]

WinFaxPro gibi bir yazılım işinizi görür diye düşünüyorum. Dilerseniz bu konuya da göz gezdiriniz.

 

[modalı]

Winfaxpro nuz varsa access içinden fax yollama fonksiyonu:

 [LEFT]Public Declare Function ShellExecute Lib "shell32.dll" _
                 Alias "ShellExecuteA" (ByVal lngHwnd As Long, _
                                        ByVal strOperation As String, _
                                        ByVal strFile As String, _
                                        ByVal strParameters As String, _
                                        ByVal strDirectory As String, _
                                        ByVal lngShow As Long) As Long



Public Function SendFax(ByVal strFaxNumber As String, _
                        ByVal strReport As String, _
               Optional ByVal strName As String, _
               Optional ByVal fLocal As Boolean = False, _
               Optional ByVal intDelay As Integer = 0, _
               Optional ByVal strPrefix As String, _
               Optional ByVal strSuffix As String, _
               Optional ByVal strCntryCode As String, _
               Optional ByVal strFilter As String, _
               Optional ByVal fOffPeak As Boolean = False) As Boolean

    Dim strFax     As String
    Dim strDate    As String
    Dim strTime    As String
    Dim objWFXSend As Object
    
    On Error GoTo ErrorHandler
    
    DoCmd.SetWarnings False
        
    Set objWFXSend = CreateObject("WinFax.SDKSend")
        
    strFax = strPrefix & strFaxNumber & strSuffix
         
    strDate = CStr(Date)
    strTime = Format(DateAdd("h", intDelay, Time), "hh:nn:ss")
    
    If Val(Left$(strTime, 2)) < Val(Left$(Time, 2)) Then
        strDate = CStr(Date + 1)
    End If
    
    With objWFXSend
        .SetDate (strDate)
        .SetTime (strTime)
        .SetOffPeak (fOffPeak)
        .SetNumber (strFax)
        .SetTo (strName)
        .AddRecipient
        .SetPrintFromApp (1)
        .Send (1)
        
        Do While .IsReadyToPrint = 0
            DoEvents
        Loop

        ShellExecute 0, "Print", strReport, "", "", 0

        Sleep 500
        .Done
        Sleep 500

    End With
        
    SendFax = True
        
ExitProcedure:
    On Error Resume Next
    DoCmd.SetWarnings True
    Set objWFXSend = Nothing
    Exit Function
    
ErrorHandler:
    MsgBox "Sending Fax Error... " & Err.Number & ": " & Err.Description
    
    SendFax = False

    Resume ExitProcedure
    
End Function[/LEFT]

 

[kaspersky]

Var ama access den pek anlamıyorum, işide burada bir başkasına yaptırmak gibi bir niyetim yok ama bana biraz daha yardımcı olabilirseniz birşeyler yapmaya çalışacağım.

Winfaxpro nuz varsa access içinden fax yollama fonksiyonu:

 [LEFT]Public Declare Function ShellExecute Lib "shell32.dll" _
                 Alias "ShellExecuteA" (ByVal lngHwnd As Long, _
                                        ByVal strOperation As String, _
                                        ByVal strFile As String, _
                                        ByVal strParameters As String, _
                                        ByVal strDirectory As String, _
                                        ByVal lngShow As Long) As Long



Public Function SendFax(ByVal strFaxNumber As String, _
                        ByVal strReport As String, _
               Optional ByVal strName As String, _
               Optional ByVal fLocal As Boolean = False, _
               Optional ByVal intDelay As Integer = 0, _
               Optional ByVal strPrefix As String, _
               Optional ByVal strSuffix As String, _
               Optional ByVal strCntryCode As String, _
               Optional ByVal strFilter As String, _
               Optional ByVal fOffPeak As Boolean = False) As Boolean

    Dim strFax     As String
    Dim strDate    As String
    Dim strTime    As String
    Dim objWFXSend As Object
    
    On Error GoTo ErrorHandler
    
    DoCmd.SetWarnings False
        
    Set objWFXSend = CreateObject("WinFax.SDKSend")
        
    strFax = strPrefix & strFaxNumber & strSuffix
         
    strDate = CStr(Date)
    strTime = Format(DateAdd("h", intDelay, Time), "hh:nn:ss")
    
    If Val(Left$(strTime, 2)) < Val(Left$(Time, 2)) Then
        strDate = CStr(Date + 1)
    End If
    
    With objWFXSend
        .SetDate (strDate)
        .SetTime (strTime)
        .SetOffPeak (fOffPeak)
        .SetNumber (strFax)
        .SetTo (strName)
        .AddRecipient
        .SetPrintFromApp (1)
        .Send (1)
        
        Do While .IsReadyToPrint = 0
            DoEvents
        Loop

        ShellExecute 0, "Print", strReport, "", "", 0

        Sleep 500
        .Done
        Sleep 500

    End With
        
    SendFax = True
        
ExitProcedure:
    On Error Resume Next
    DoCmd.SetWarnings True
    Set objWFXSend = Nothing
    Exit Function
    
ErrorHandler:
    MsgBox "Sending Fax Error... " & Err.Number & ": " & Err.Description
    
    SendFax = False

    Resume ExitProcedure
    
End Function[/LEFT]

 

[modalı]

Yukarıda verdiğim kodlarda Access le ilişkili olan tek nokta:

ShellExecute 0, "Print", strReport, "", "", 0

satırı burada Print adlı raporun faks ile yollanmasını söylüyor. Diğer bütü kısımlar VBA ve winfaxpro ile ilişkili.

Birde bir form oluşturup yukarıdaki formun bir düğümeyle çalışmasını sağlıyoruz.

Özel mesajda verdiğim linkdeki açıklamalara bakabildiniz mi? Windows XP den de yollamak mümkün.

 

[kaspersky]

Gece gece ilgilendiğin için teşekkür ederim ama sanıyorum bu olay beni aşacak,yine de çok sağol

Yukarıda verdiğim kodlarda Access le ilişkili olan tek nokta:

ShellExecute 0, "Print", strReport, "", "", 0

satırı burada Print adlı raporun faks ile yollanmasını söylüyor. Diğer bütü kısımlar VBA ve winfaxpro ile ilişkili.

Birde bir form oluşturup yukarıdaki formun bir düğümeyle çalışmasını sağlıyoruz.

Özel mesajda verdiğim linkdeki açıklamalara bakabildiniz mi? Windows XP den de yollamak mümkün.