Send or bulk mail with Outlook Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
'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.

No	Macro Name
1	Send or bulk mail with Outlook
2	send alert e-mail from microsoft outlook
3	Active workbook in email: Use this macro code to quickly send your active workbook by email. & Nbsp; You can change the subject email and body text in the code. If you want to send this mail directly, use.Send" instead of.Display."
4	Sends an email to a1
5	Send mail with Excel
6	excel operators hk
7	sending email with macro
8	send active sheet / page by email
9	copies active sheet / page email
10	link to a1 and open outloook with mail in a1
11	mini email
12	email selected cells
13	message
14	excel outlook
15	records detailed formatted cells on the records sheet / page
16	specifies in detail how many formulas are in the book (on new sheet / page)
17	remove sheet / page protections
18	inserts months as sheet / pages Specifies days in detail
19	Include a Workbook in an E-mail: After running this macro, it will open your default mail client and the attached active workbook as an attachment.
20	specify file path and extension list in detail

Excel Free Macros (VBA)

Send Or Bulk Mail With Outlook

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords