Mail gönderme konusunda yardım.

[desk]

Arkadaşlar iyi çalışmalar. Elimdeki bir miktar maile bir bilgilerim.xls dosyasını göndermek istiyorum. Bunu nasıl yapabilirim.?

 

[hamitcan]

Forumda bir sürü örnek var, önce arama yapın.

 

[desk]

Arama yaptım fakat tam konuyu anlayamadım yardımcı olamazmısıniz.!

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/f14/kaydete-basylynca-calysma-kytaby-ycynden-byr-sayfanyn-mayl-t75068.html

 

[desk]

Sub mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "deneme@mail.com"
.CC = ""
.BCC = ""
.Subject = "konu"
.Body = "Yazi"
.Attachments.Add ("C:\test.xls")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Böyle tek tek mail atabiliyorum A sütunundaki maillere 5 er 5er biraz bekleyerek atmasını nasıl sağlarım.?

 

[hamitcan]

.To = "deneme@mail.com"

yerine

.To = Cells(i, "a")

döngü kullanmalısınız.

 

[desk]

o döngüyü oturtamadım sorunum o

 

[hamitcan]

Ancak, Pazartesi günü bakabilirim. Bu arada başka arkadaşlardan yardım isteyebilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Mail_Gönder()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim X As Integer, Adres As String, Y As Byte
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next
    
    For X = 1 To Range("A65336").End(3).Row Step 10
        Adres = ""
        For Y = X To X + 9
            Adres = IIf(Adres = "", Cells(Y, 1), Adres & ";" & Cells(Y, 1))
        Next
        With OutMail
            .To = Adres
            .CC = ""
            .BCC = ""
            .Subject = "konu"
            .Body = "Yazi"
            .Attachments.Add ("C:\test.xls")
            .Send
            '.Display
             Application.Wait Now + TimeValue("00:00:05")
        End With
    Next
    
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[desk]

Üstad istediğim evet bu eline sağlık yanlız burda bir sorunum var karşıya gönderimde gönderilenler kısmında tüm mailler görünüyor sadece gidenin mailinin görünmesini nasıl sağlarım. Bu mümkünmü.? işlemi tek tek ayrı ayrımı yapması gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Bu durumda tek tek yollamanız daha mantıklıdır.

 

[desk]

Selamlar,

Bu durumda tek tek yollamanız daha mantıklıdır.

Tek tek çalışmasını nasıl sağlayacağız.? Manuel olarakmı yapmalıyız.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Mail_Gönder()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim X As Integer
    
    Set OutApp = CreateObject("Outlook.Application")
    
    For X = 1 To Range("A65336").End(3).Row
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = Cells(X, 1)
            .CC = ""
            .BCC = ""
            .Subject = "konu"
            .Body = "Yazi"
            .Attachments.Add ("C:\test.xls")
            .Send
            '.Display
             Application.Wait Now + TimeValue("00:00:05")
        End With
    Next
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[desk]

Böyle ilk kodum gibi çalışıyor. A sütunundaki ilk maile atıyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.