Rica ederim.send yazan yerdeki baştaki tırnağı kaldırın abey.
(10/04/2021, 01:48)Oğuz Türkyılmaz yazdı: [ -> ]For i = basla To bitis
Ayrıca val(basla) ve val(bitis) gibi yapmayı unutmayın inputboxtan alındığı için string olarak algılıyor galiba.
Merhaba,
Akşam teknik olanaksızlıktan cevap veremedim, @
feraz hocam sağolsun yetişmiş gene hızır gibi..
Birinci olarak basla to bitis kısmı haric kalanı bende sorunsuz çalışıyordu. excel,word, pdf, exe ne seçersen ekliyordu.
İkinci olarak aynı anda çok sayıda mail gönderirseniz mail adresiniz spam olarak algılanacak ve mail adresiniz bloklanacak. Tecrübe ile sabit.
5-10 saniye aralıklarla manuel göndermenizde fayda var.
Sağlıklı günler dilerim.
Sn.Kanakan
Outlook da bir defada en fazla 100 adrese mail gönderimine izin verdiği microsoft destek hattında yazıyor bende buna güvenerek bir defada 100 olmasa da garanti olsun diye 50 50 göndermeyi düşünüyordum toplam 3000 küsur adrese yılda 1 defa gönderilecek bir pdf katalog var belki her ay bir kerede o ay ile ilgili kampanya maili atılabilir. Velhasıl kelam 5-10 saniyede bir mail atmam demek 3000 mail için yaklaşık 10 saat uğraşmak demek. 5 er 5 er göndersem 2 saat de biter ama bu en iyi senaryo. Hay allah tek tek uğraşmak ölüm.
(10/04/2021, 09:45)Oğuz Türkyılmaz yazdı: [ -> ]Sn.Kanakan
Outlook da bir defada en fazla 100 adrese mail gönderimine izin verdiği microsoft destek hattında yazıyor bende buna güvenerek bir defada 100 olmasa da garanti olsun diye 50 50 göndermeyi düşünüyordum toplam 3000 küsur adrese yılda 1 defa gönderilecek bir pdf katalog var belki her ay bir kerede o ay ile ilgili kampanya maili atılabilir. Velhasıl kelam 5-10 saniyede bir mail atmam demek 3000 mail için yaklaşık 10 saat uğraşmak demek. 5 er 5 er göndersem 2 saat de biter ama bu en iyi senaryo. Hay allah tek tek uğraşmak ölüm.
Üstad bunla iligi net bir kriter yok, Aşağıdaki makaleyi okumanızı öneririm.
https://www.mailgraf.com/spama-dusmeden-...erilir-mi/
ilginiz ve yönlendirmeniz için çok teşekkür ederim
Kodu alttaki gibi deneyin.50 olarak ayarladım ve gşnderdikten sonra 20 saniye beklemesi gerek.
Mod kımını heralde tam ayarlayamadım.Dir (ThisWorkbook.Path) koduda ekledim dosya nerdeyse orda aransın eklenti diye yolunu değiştirebilirsiniz masaüstü gibi.
Private Sub CommandButton2_Click()
Dim objOutlook As Object
Dim objMail As Object
Dim maill As String
Dim i As Long, ek
Dim syfAna As Worksheet
Dim basla, bitis
Set syfAna = ThisWorkbook.Sheets("Ana_Sayfa")
Dir (ThisWorkbook.Path)
ek = Application.GetOpenFilename("Files (*.**)," & "*.**", 1, "Select File", "Open", False)
If ek = vbNullString Then Exit Sub
If ek = False Then Exit Sub
basla = InputBox("Baþlangýç ID numarasýný Giriniz.")
If basla = 1 Then Exit Sub
If basla = "" Then Exit Sub
bitis = InputBox("Bitiþ ID numarasýný Giriniz.")
If bitis = "" Then Exit Sub
If IsNumeric(basla) = False Then Exit Sub
If IsNumeric(bitis) = False Then Exit Sub
If basla > bitis Then Exit Sub
If WorksheetFunction.CountA(syfAna.Range("D2
" & Rows.Count)) = 0 Then GoTo son
For i = basla To bitis
var2:
If Trim(syfAna.Range("G" & i).Value) <> "" Then maill = maill & syfAna.Range("G" & i).Value & ";"
If i Mod 50 = 0 Then Exit For
Next
i = i + 1
maill = Left(maill, Len(maill) - 1)
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = maill
.Subject = "2021 WINPERAX Teknik Ürün Kataloðu"
.body = "Sayýn yetkili, Ekte 2021 WINPERAX Teknik Ürün Kataloðu bulunmaktadýr. Ýyi Çalýþmalar Dileriz.Saygýlarýmýzla,"
.Attachments.Add ek
.Importance = 2
.Save
.Display
.Send ' gönder
Application.Wait (Now + TimeValue("0:00:20"))
End With
maill = vbNullString
If i >= bitis Then GoTo var
GoTo var2
var:
MsgBox "Gönderildi..", vbInformation, "Bilgi"
Set objMail = Nothing
Set objOutlook = Nothing
Set syfAna = Nothing
Exit Sub
son:
MsgBox "Hata oldu", vbCritical, "Hata"
GoTo var
End Sub