microsoft outlookdan uyarı e-maili göndersin 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. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	microsoft outlookdan uyarı e-maili göndersin
2	form penceresi
3	aktif sayfayı kopyalar email ile yollar
4	excel operatörleri hk
5	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
6	mini email
7	pdf dosyasından verileri kopyalama ve Excel dosyasına yapıştırma
8	kitabın kopyasını userform,modul,class silerek oluşturur
9	istenilen yazıcıyı aktif yapmak için
10	t.c. merkez bankası güncel döviz kurlarını alma
11	textboxu sesli okuma
12	bütün excel dosyalarının %85 ile açılması
13	aktif varsayılan yazıcı da yazdırır
14	Excel ile mail gönderme
15	tüm makroların listesi
16	sayfa korumalarını kaldırma
17	Hesap Makinesi Aç: Pencerede belirli bir hesap makinesi bulunur ve bu makro kodunu kullanarak hesaplamayı doğrudan Excel kullanımıyla hesaplamalarınız için açabilirsiniz.
18	masaüstüne ikon oluşturma
19	hesap makinesi çağırır
20	visual basic project erişimine güven çekboxini true yapmak.

Benzer Sonuçlar

Makro Adı

microsoft outlookdan uyarı e-maili göndersin

form penceresi

aktif sayfayı kopyalar email ile yollar

excel operatörleri hk

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

mini email

pdf dosyasından verileri kopyalama ve Excel dosyasına yapıştırma

kitabın kopyasını userform,modul,class silerek oluşturur

istenilen yazıcıyı aktif yapmak için

t.c. merkez bankası güncel döviz kurlarını alma