toplu olarak pdf mail atma

S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
Kolay gelsin,

Bir konuda daha bilgi ve yardımlarınıza ihtiyacım var.

Ekli excelde bir fiyat teklif formatı var.İçerisindeki alanlara açıklamaları yazdım.Belirli sabit bir yazı formatı var ve şirket logosu ekli.Toplam 2 sayfa olucak.Bilgileri gönderen ve firmalar sayfalarından alacak.

Gönderen sayfasından firma aralığı seçince örn.1-15 ayrıca mail atma aralığı örn.60 sn.

1.firmadan başlayıp değişkenlere 15.firmaya kadar 60 saniyede bir firma bilgilerini değiştirerek PDF olarak mail atmasını istiyorum.Tabi tek pdf te 2 sayfa yazı olacak.

Yardımlarınız için şimdiden çok teşekkür ederim.
 

Ekli dosyalar

Emir Hüseyin Çoban

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
Spam/ reklam gonderme programi mi yapmak istiyorsunuz.

.
 
S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
Emir Hüseyin Çoban' Alıntı:
Spam/ reklam gonderme programi mi yapmak istiyorsunuz.

.
Genişletmek için tıkla ...
Hocam bu firmalar bizim otelimizde kayıtlı yani profili olan firmalar.Önce mail gönderip arkasındanda aramak istiyorum.

Yani bugün 1-25 arasındakilere at yarın 26-50 arasındakiler deyip 1 saat sonrada arayıp mailim geldimi diyicem.

Böylece şirket yetkilisi günlük 25 firmaya fiyat teklifi göndermiş ve ardından arayarak firma bilgilerini ve teklifin ulaşıp ulaşmadığını teyid etmek zorunda olucak.
 
H

Huseyinkis

Katılım
23 Eylül 2004
Mesajlar
1,754
Excel Vers. ve Dili
Excel 2010 TR
Merhaba -- siteye Altın üyelik olmadığı için dosya yükleyemiyorum kendim için kullandığım kodları aşağıda bulabilirsiniz.


Kod: 
Sub Bilgileri_PDF_Olarak_Kaydet()

For i = 1 To 25

Cells(1, 14) = i                  'bu hücre başka bir listede bulunan mail adreslerini alması için düşeyara formulu için kullandım 17 sütuna  mail adresini düşeyara ile getirtiyorum.

If Cells(1, 17).Value <> Empty Then

Range("A1:J52").Select   'Sayfada seçili alanı Pdf olarak kaydeder.
Musteri_adi = "EArsiv"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & Musteri_adi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Call mailgon          ' Pdf Dosyasını mail atması için 

Kill Application.ThisWorkbook.Path & "\EArsiv.pdf"  'mail attıktan sonra oluşan pdf sildiriyorum
End If
Next i

End Sub


Sub mailgon()
Dim strDate As String
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
        
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
On Error Resume Next
.To = Cells(1, 17).Value
.Subject = Cells(5, 2) & " - E-Arsiv"
.Body = "E-Arşiv uygulaması. İletişim: Deneme@Deneme.com.tr"
.Attachments.Add Application.ThisWorkbook.Path & "\" & "EArsiv.pdf"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub
 
S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
Huseyinkis' Alıntı:
Merhaba -- siteye Altın üyelik olmadığı için dosya yükleyemiyorum kendim için kullandığım kodları aşağıda bulabilirsiniz.


Kod: 
Sub Bilgileri_PDF_Olarak_Kaydet()

For i = 1 To 25

Cells(1, 14) = i                  'bu hücre başka bir listede bulunan mail adreslerini alması için düşeyara formulu için kullandım 17 sütuna  mail adresini düşeyara ile getirtiyorum.

If Cells(1, 17).Value <> Empty Then

Range("A1:J52").Select   'Sayfada seçili alanı Pdf olarak kaydeder.
Musteri_adi = "EArsiv"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & Musteri_adi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Call mailgon          ' Pdf Dosyasını mail atması için 

Kill Application.ThisWorkbook.Path & "\EArsiv.pdf"  'mail attıktan sonra oluşan pdf sildiriyorum
End If
Next i

End Sub


Sub mailgon()
Dim strDate As String
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
        
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
On Error Resume Next
.To = Cells(1, 17).Value
.Subject = Cells(5, 2) & " - E-Arsiv"
.Body = "E-Arşiv uygulaması. İletişim: Deneme@Deneme.com.tr"
.Attachments.Add Application.ThisWorkbook.Path & "\" & "EArsiv.pdf"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub
Genişletmek için tıkla ...
yardımınız için teşekkür ederim.

Fakat bu kodların benim excele uyacağını zannetmiyorum.Zira benim sayfaları içerir ibareler göremedim.

Tekrardan teşekkür ederim.
 
Emir Hüseyin Çoban

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Dosyanız ektedir.

Tabloyu klasör içinde çalıştırın.
Klasör içindeki PDF klasörünü silmeyin. Ancak arada içerisinde kalan pdf dosyalarınız temizleyebilirsiniz.

. . .
 

Ekli dosyalar

Emir Hüseyin Çoban

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Kullandığınız office versiyonu nedir.

. . .
 
Emir Hüseyin Çoban

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Bende hata vermiyor. Atex mailini siz kullanıyorsanız orayada deneme yaptığım mailler düşecektir.

. . .
 
S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
Emir Hüseyin Çoban' Alıntı:
. . .

Bende hata vermiyor. Atex mailini siz kullanıyorsanız orayada deneme yaptığım mailler düşecektir.

. . .
Genişletmek için tıkla ...
hocam şu kısımda debug verdi,

Application.Wait (Now() + TimeValue("00:00:60")) ' 60 SANİYE

bunu düzeltme imkanı varmı?bu kısmı silince gönderiyor.elinize sağlık.

birde pdf dosyasına isim girbileceğimiz bir yer olabilirmi.Yani firmalar kısmında sıra ile gönderirken a-tex matbaa fiyat teklifi yazsın.

Fiyat Teklifi sabit olucak başına firma ismini koysun.

şimdiden teşekkür ederim.
 
Emir Hüseyin Çoban

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Kod bloğunda kırmızı ile belirttiğim satırlarda değişiklik ve ilaveleri yapın...

Kod: 
On Error Resume Next
        yol = ThisWorkbook.Path & "\PDF\"
[COLOR="DarkRed"]        Soldan = left(SF.Cells(i + 1, "B"), 10)
        isim = Soldan & "_Fiyat Teklif_" & Format(Now, "ddmmyy_hhmmss")[/COLOR]
        S16.Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=yol & isim & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        On Error GoTo 0
. . .
 
S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
Emir Hüseyin Çoban' Alıntı:
. . .

Kod bloğunda kırmızı ile belirttiğim satırlarda değişiklik ve ilaveleri yapın...

Kod: 
On Error Resume Next
        yol = ThisWorkbook.Path & "\PDF\"
[COLOR="DarkRed"]        Soldan = left(SF.Cells(i + 1, "B"), 10)
        isim = Soldan & "_Fiyat Teklif_" & Format(Now, "ddmmyy_hhmmss")[/COLOR]
        S16.Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=yol & isim & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        On Error GoTo 0
. . .
Genişletmek için tıkla ...
hocam elinize sağlık.
zaman ayırdığınız için çok teşekkür ederim.
sadece Soldan = Left(SF.Cells(i + 1, "B"), 10) bu satırdaki 10 rakamını büyütsem sorun olur mu?firma ismini yarıda kesmesin diye..az harfli bir firma ismi denk gelirse sorun olur mu?

teşekkürler
 
Emir Hüseyin Çoban

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Az harfli isimlerde sorun olmaz. Firma isimleri değişken olduğu için 10 sayısını değiştirseniz bile hiç bir zaman tam firma ismini tutturamazsınız. O yüzden bence 10 ideal...

. . .
 
S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
hocam kullanmaya başladım,

yardım ve cevaplarınızı için çok teşekkür ederim allah razı olsun.

kolay gelsin.
 
S

somon1

Katılım
6 Ekim 2010
Mesajlar
49
Excel Vers. ve Dili
2003 tr
Altın Üyelik Bitiş Tarihi
07.12.2023
hocam küçük bir yardıma daha ihtiyacım var,

Mail attığımda imzam ve imzamın altındaki bannerım çıkmıyor.Bunuda eklemek mümkün mü?

Ayrıca makro bölümüne çalıştırdığım bilgisayarın IP numarasını girip kopyalamayı engellemem mümkün mü?

Ben dosyanın makro bölümüne şifre koydum eğer IP olayıda olursa tep personelin bu işi yapmasını sağlıyıcam.

teşekkür ederim.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Üst