send alert e-mail from microsoft outlook Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Biliyorsunuzdur mutlaka John Walkenbachın bir api si var.Aşağıdaki gibi.

Kod: 
'Windows API function declaration 
Private Declare Function PlaySound Lib "winmm.dll" _ 
  Alias "PlaySoundA" (ByVal lpszName As String, _ 
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Function Alarm(Cell, Condition) 
    Dim WAVFile As String 
    Const SND_ASYNC = &H1 
    Const SND_FILENAME = &H20000 
    On Error GoTo ErrHandler 
    If Evaluate(Cell.Value & Condition) Then 
        WAVFile = ThisWorkbook.Path & "sound.wav" 'Edit this statement 
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) 
        Alarm = True 
        Exit Function 
    End If 
ErrHandler: 
    Alarm = False 
End Function

Kod: 
=Alarm(A1;">=1000")

Ãimdi benim sorunum şöyle , E sütununda tarihler var.Bu tarihlerden 10 gün önce alarm versin ve F sütunundaki kişilere Microsoft Outlookdan uyarı e-maili göndersin. Bu mümkün mü acaba? 
_________________
 
 
Haluk
Moderatör

--------------------------------------------------------------------------------
 
Excel ile e-mail gönderilecekse e-mail client olarak MS Outlook'un kullanılması her zaman daha iyidir. Çünkü MS Outlook da bir Office programı olduğu için, Excel VBA'de MS Outlook'a referans vererek bazı işler daha kolay yapılabilir.

Aşağıdaki kodu çalıştırmadan önce Excel VBE'de Tools | References kısmından MS Outlook 9.0 Object Libray referansının eklenmesi gerekir. (MS Outlook versiyonuna göre 10 veya 11 de olabilir.)

PC'nin tarihi ile E sütunundaki tarihleri kontrol edip, 10 günlük farkı gördüğü yerde F sütunundaki geçerli e-mail adresine bir e-mail, MS Outlook ile aşağıdaki gibi bir kodla gönderilebilir.

Kod: 
Sub MultiEmail() 
    Dim OutApp As Outlook.Application 
    Dim NewMail As Outlook.MailItem 
    Dim noE As Integer, i As Integer 
    noE = Cells(65536, 5).End(xlUp).Row 
        For i = 1 To noE 
            If Cells(i, 5) = Date - 10 Then 
                Set OutApp = New Outlook.Application 
                Set NewMail = CreateItem(olMailItem) 
                    With NewMail 
                        .To = Cells(i, 6).Text 
                        .Subject = "Deneme" 
                        .Body = "Bu e-mail deneme amacıyla gönderilmiştir." 
                        .Save 
                        .Send 
                    End With 
                Set NewMail = Nothing 
                Set OutApp = Nothing 
            End If 
        Next 
End Sub

Eğer bu kodun çalıştırıldığı PC'de ilgili güvenlik yaması kurulmuş ise Windows kullanıcıyı ikaz eder ve başka bir programın e-mail göndermeye çalıştığına dair kullanıcıyı uyarır. Bu yama kurulu değilse, böyle bir problem olmaz

No	Macro Name
1	send alert e-mail from microsoft outlook
2	excel operators hk
3	mini email
4	copies active sheet / page email
5	Copy data from pdf file and paste to Excel file
6	remove sheet / page protections
7	specify the number of copies to print from the printer
8	form window
9	show file path list in detail fields of files file path etcâ € ¦
10	browse folder xls list
11	Write sheet / page names from a1
12	references control
13	To print a text from excel in Excel
14	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."
15	Send or bulk mail with Outlook
16	Sends an email to a1
17	message
18	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.
19	Exiting Excel file without saving closing without saving
20	Send mail with Excel

Excel Free Macros (VBA)

Send Alert E-mail From Microsoft Outlook

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords