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

PDA

View Full Version : کامپوننت برای ارسال Fax

MShirzadi

سه شنبه 17 بهمن 1385, 18:03 عصر

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

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

DonetKarvb

سه شنبه 17 بهمن 1385, 18:31 عصر

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

سه شنبه 17 بهمن 1385, 23:10 عصر

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

MShirzadi

چهارشنبه 18 بهمن 1385, 20:08 عصر

من یکی میشناسم که عموما" هم از این استفاده میکنند. ولی زیاد ازش خوشم نیومده
Kdtele
دوست عزیز از کجا گیرش بیارم
البته بدون Licence

DonetKarvb

چهارشنبه 18 بهمن 1385, 21:10 عصر

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

چهارشنبه 18 بهمن 1385, 21:11 عصر

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

MShirzadi

چهارشنبه 18 بهمن 1385, 23:23 عصر

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

DonetKarvb

پنج شنبه 19 بهمن 1385, 00:50 صبح

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

vahidiran

پنج شنبه 19 بهمن 1385, 09:59 صبح

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

DonetKarvb

پنج شنبه 19 بهمن 1385, 16:42 عصر

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

mnoruzi

شنبه 08 اردیبهشت 1386, 12:35 عصر

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

saeed_rezaei

شنبه 08 اردیبهشت 1386, 13:10 عصر

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

MehdiElexal

چهارشنبه 25 اسفند 1389, 00:18 صبح

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

mansourii

چهارشنبه 25 اسفند 1389, 15:36 عصر

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