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?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
2000 kişiye fax
- Konbuyu başlatan kaspersky
- Başlangıç tarihi
- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
Fax biraz zorda, mail atmak isterseniz çok kolay.
http://www.excel.web.tr/showthread.php?t=22897
http://www.excel.web.tr/showthread.php?t=22897
Maalesef benim mail değil fax çekmem lazım.
- Katılım
- 15 Haziran 2005
- Mesajlar
- 125
- Excel Vers. ve Dili
- Office 2003 -TR
Office 2003 -ING
Office 2007 -ING
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.
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.
- Katılım
- 8 Eylül 2006
- Mesajlar
- 21
- Excel Vers. ve Dili
- Microsoft® Office Excel® (12.0.6036.5000)
WinFaxPro gibi bir yazılım işinizi görür diye düşünüyorum. Dilerseniz bu konuya da göz gezdiriniz.
Winfaxpro nuz varsa access içinden fax yollama fonksiyonu:
Kod:
[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]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.
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.
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.
Gece gece ilgilendiğin için teşekkür ederim ama sanıyorum bu olay beni aşacak,yine de çok sağol