Outlook ile mail gönderme veya toplu mail gönderme Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
'Bu kodun dosyasını indirmek için lütfen http://www.excelsizeyeter.com/Download_Dosyalari/MailAtma.xls adresine tıkayın.

Dim i As Integer
Sub Mail_Gönder()
On Error Resume Next
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim cell As Range, FileCell As Range, rng As Range
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    Set sh = Sheets("liste")
    Set OutApp = CreateObject("Outlook.Application")
    For Each cell In sh.Columns("d").Cells.SpecialCells(xlCellTypeConstants)
        'Enter the file names in the C:Z column in each row
        Set rng = sh.Cells(cell.Row, 1).Range("d1:Z1")
        If cell.Value Like "?*@?*.?*" And _
           Application.WorksheetFunction.CountA(rng) > 0 Then
            Set OutMail = OutApp.CreateItem(0)
            With OutMail 'Burada
                .To = cell.Value
                .cc = cell.Offset(0, 1).Value
On Error Resume Next
                .Subject = cell.Offset(0, -2)
                .Body = cell.Offset(0, -1)
                For Each FileCell In rng.SpecialCells(xlCellTypeConstants)

.Attachments.Add FileCell.Value

Next FileCell
'                .Display
                .Send  'Or use Display
            End With
            Set OutMail = Nothing
        End If
    Next cell
    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Sub Mail_Gönder_Göster()
On Error Resume Next
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim cell As Range, FileCell As Range, rng As Range
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    Set sh = Sheets("liste")
    Set OutApp = CreateObject("Outlook.Application")
    For Each cell In sh.Columns("d").Cells.SpecialCells(xlCellTypeConstants)
        'Enter the file names in the C:Z column in each row
        Set rng = sh.Cells(cell.Row, 1).Range("d1:Z1")
        If cell.Value Like "?*@?*.?*" And _
           Application.WorksheetFunction.CountA(rng) > 0 Then
            Set OutMail = OutApp.CreateItem(0)
            With OutMail 'Burada
                .To = cell.Value
                .cc = cell.Offset(0, 1).Value
On Error Resume Next
                .Subject = cell.Offset(0, -2)
                .Body = cell.Offset(0, -1)
                For Each FileCell In rng.SpecialCells(xlCellTypeConstants)

.Attachments.Add FileCell.Value

Next FileCell
                .Display
'                .Send  'Or use Display
            End With
            Set OutMail = Nothing
        End If
    Next cell
    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub
'Bu kodun dosyasını indirmek için lütfen http://www.excelsizeyeter.com/Download_Dosyalari/MailAtma.xls adresine tıkayın.

Benzer Sonuçlar
No	Makro Adı
1	Outlook ile mail gönderme veya toplu mail gönderme
2	microsoft outlookdan uyarı e-maili göndersin
3	Excel ile mail gönderme
4	E-postadaki Aktif Çalışma Kitabı: Etkin çalışma kitabınızı e-postayla hızlı bir şekilde göndermek için bu makro kodunu kullanın. & Nbsp; Konu, e-posta ve gövde metnini kodda değiştirebilirsiniz. Bu postayı doğrudan göndermek istiyorsanız ".Display" yerine ".Send" kullanın.
5	a1 deki email adresine mesaj gönderir
6	makroyla email gönderme
7	aktif sayfayı emaille gönderme
8	seçili hücreleri emaille gönderir
9	excel-outlook
10	excel operatörleri hk
11	mini email
12	aktif sayfayı kopyalar email ile yollar
13	"Posta göndermek" Dialog Penceresi
14	a1 e mail linki vermek ve outloook’u a1 deki maille açma
15	email linki verme ve açma
16	"Posta Düzenleyici Mailer" Dialog Penceresi
17	mesaj verdirip kapatma
18	excel dosyası belirli bir tarihten sonra açılmasın
19	Bir E-postaya Çalışma Kitabını Ekleyin: Bu makroyu çalıştırdıktan sonra, varsayılan posta istemcinizi ve ekteki etkin çalışma kitabınızı bir eki olarak açacaktır.
20	Bütün pivot tablolarını yazıcıya gönderme

Benzer Sonuçlar

Makro Adı

Outlook ile mail gönderme veya toplu mail gönderme

microsoft outlookdan uyarı e-maili göndersin

Excel ile mail gönderme

E-postadaki Aktif Çalışma Kitabı: Etkin çalışma kitabınızı e-postayla hızlı bir şekilde göndermek için bu makro kodunu kullanın. & Nbsp; Konu, e-posta ve gövde metnini kodda değiştirebilirsiniz. Bu postayı doğrudan göndermek istiyorsanız ".Display" yerine ".Send" kullanın.

a1 deki email adresine mesaj gönderir

makroyla email gönderme

aktif sayfayı emaille gönderme

seçili hücreleri emaille gönderir

excel-outlook

excel operatörleri hk