کامپوننت برای ارسال Fax

کسی کامپوننتی برای ارسالFax میشناسه اگر کسی لینکی داره لطف کنه برامون بزاره

باتشکر از همه دوستان

من یکی میشناسم که عموما" هم از این استفاده میکنند. ولی زیاد ازش خوشم نیومده
Kdtele

از سرویس فکس ویندوز استفاده کن هزاران مثال هم توی اینترنت برای اون وجود داره

نقل قول:

---

من یکی میشناسم که عموما" هم از این استفاده میکنند. ولی زیاد ازش خوشم نیومده
Kdtele

---

دوست عزیز از کجا گیرش بیارم
البته بدون Licence

نقل قول:

---

نوشته شده توسط MShirzadi

دوست عزیز از کجا گیرش بیارم
البته بدون Licence

---

از سایت خود شرکت:
http://www.kaed.com/kdtele/download.html
اگر منظورت از لایسنس کار غیر اخلاقیشه ( ک. ر . ک) پیام خصوصی بفرست:گیج:

توی لینک امضاء من هست

نقل قول:

---

از سایت خود شرکت:
http://www.kaed.com/kdtele/download.html
اگر منظورت از لایسنس کار غیر اخلاقیشه ( ک. ر . ک) پیام خصوصی بفرست:گیج:

---

ولی این سایت رو باز نمی کنه

نقل قول:

---

نوشته شده توسط MShirzadi

ولی این سایت رو باز نمی کنه

---

آره برای منم باز نمیکنه.
با پام خصوصی ایمیلت رو بفرست تا برات میلش کنم. ( همراه با اون چیزی که تو امضای دوستمون هست)

اگه لینکی هستش اینجا بگید که همه استفاده کنند

نقل قول:

---

نوشته شده توسط vahidiran

اگه لینکی هستش اینجا بگید که همه استفاده کنند

---

خلاف قوانین سایت است. میشه فروختش (در ملا عام) ولی نمیشه لینک گذاشت لینک رو باید تو پیام خصوی داد و یا خود فایل رو میلش کرد:افسرده:

پس اگه میشه یه کپی اش رو برا من هم سند که چون در به در دنبال یه همچین چیزی هستم!!!!!

Try

Dim fo AsNew OpenFileDialog

fo.Filter = "Microsoft Word Document (*.doc)|*.doc| Adobe PDF (*.pdf)|*.pdf"

If fo.ShowDialog = DialogResult.OK Then

If fo.FileName = "" Then

ExitSub

EndIf

Else

ExitSub

EndIf

Dim fxsvr = New FAXCOMLib.FaxServer

Dim fxdoc = fxsvr.CreateDocument(fo.FileName)

Try

fxsvr.Connect("Machine Name ") 

Catch ex As Exception

MessageBox.Show(ex.ToString())

EndTry

fxdoc.FileName = fo.FileName

fxdoc.FaxNumber = InputBox("Fax Number:", "Enter Fax Number", -1, -1)

fxdoc.RecipientName = ""

Try

fxdoc.Send()

Catch ex As Exception

MessageBox.Show(ex.ToString())

EndTry

fxsvr.Disconnect()

Catch ex As Exception

MessageBox.Show(ex.message() & ControlChars.CrLf & ControlChars.CrLf & ex.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

EndTry

حالا این همه لینک این یکی شد غیر اخلاقی :متفکر:

اگه کسی این کامپوننت رو می خواد برید توی این سایت ( این سایت برای یکی از دوستان برنامه نویسه)
توی این سایت دانلود KDTele3.6 همراه با مثال وی بی دات نت / وی بی 6 / دلفی است
در ضمن همونجا ک ر ک هم داره!