Hücrede yazan numaraya faks gönderme

[asi_kral]

Merhaba
A1 hücresine yazdığım numarayı faks modem üzerinden faks göndermek istiyorum. Nasıl yapabilirim.

 

[Emir Hüseyin Çoban]

. . .

Sendkeys komutlarını kullanarak
Ctrl P
Enter vs. şeklinde atım atım işlemleri yaptırabilirsiniz.
Mevcut benzer bir işlemi ben kendi çalışmalarımda kullanıyorum.

. . .

 

[asi_kral]

. . .

Sendkeys komutlarını kullanarak
Ctrl P
Enter vs. şeklinde atım atım işlemleri yaptırabilirsiniz.
Mevcut benzer bir işlemi ben kendi çalışmalarımda kullanıyorum.

. . .

Nasıl yapabilirim. örnek olarak gönderebilir misiniz ?
Ben faks'a bilgileri gönderebiliyorum. Yazıcı seçimi gibi seçip göndereceğim faks sayfasını eklenti olarak alabiliyorum. Numarayı yazamadığım için karışıklık oluyor.
Bir örnek şeklinde gönderirseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Örnek kod bloğu:

yazıcıseç = Application.Dialogs(xlDialogPrinterSetup).Show
    If yazıcıseç = False Then Exit Sub
    sor = MsgBox("Gönderim İşlemi Başlatılıyor...", vbYesNo)
    If sor = vbNo Then Exit Sub
    
    
    For i = ilk_sat To son_sat

        SF.PrintOut
        
        Application.Wait (Now() + TimeValue("00:00:02"))[COLOR="DarkGreen"] ' 2 SANİYE[/COLOR]

        SendKeys SS.Range("I2").Text
        Application.Wait (Now() + TimeValue("00:00:01"))
        Application.SendKeys "{TAB}"
        SendKeys SA.Range("H3").Text [B][COLOR="DarkGreen"]' numaranın olduğu hücre[/COLOR][/B]
        Application.SendKeys "{TAB}"
[COLOR="DarkGreen"]        'Application.SendKeys " {DOWN 4}~"[/COLOR]
        Application.SendKeys "~"
        
        Application.Wait (Now() + TimeValue("00:00:08")) [COLOR="DarkGreen"]' 8 SANİYE[/COLOR]
        
    Next i

Numarayı yazdırmak için; imleç numaranın yazılacağı textbox üzerindeyken, SendKeys range("hücre adresi").Text komutunu kullanabilirsiniz.

. . .

 

[asi_kral]

Teşekkür ederim.
Yalnız benim istediğim bu değil. Ben numarayı otomatik yazsın istiyorum. Aynı mail atıyormuş gibi.

 

[Emir Hüseyin Çoban]

. . .

Şuanda kullandığım bilgisayarda ekran kayıt programım yok. Görsel bir ek olsa daha anlaşılır olacaktı.
Yinede telefon ile yaptığım kayıt ektedir. 36 mb civarı...

Fax göndermek istediğimiz cariyi seçip, gönder butonunu tıklıyorum...

Link: http://dosya.co/o4osrfvm68xh/20161105_121637.rar.html

Gönderilecek fax metni excel üzerinde mi yoksa PDF vb. başka bir belge mi.

. . .

 

[asi_kral]

Merhaba Hüseyin Bey
Öncelikle zahmet verdiğim için kusura bakmayın.
Ben pc'ye faks modem aldım. Yazıcı şeklinde yüklü ( siz de normal bir yazıcı almışsınız içinde faks olan ) ben fax'a evrak gönderdiğimde ( ekran görüntüsü ekte ) tiff dosyası ekliyor. Kime kısmının karşısındaki boş kutucuğa numara yazılması gerekiyor.
Deneme yaptığımda ise pdf dosyası da ekleniyor.