Otomatik mail gonderme!

[mavisachal]

Arkadaşlar selam,

Gece gece aklıma birşey takıldı

Excel sayfasına bir buton koyuyorum ve butona tıklayınca yazmış olduğum mail adresine outlook açılmadan mail gondermesini istiyorum mailde ise soyle yazılmalı sayfa guncellenmiştir.

Outlook açılmadan boyle bir mail gonderebilir miyiz acaba?

Yoksa illaki outlook açılıp oradan mı gondermemiz gerekiyor?

teşekkurler.

 

[mavisachal]

Yokmudur arkadaşlar boyle birşey yapamaz mıyız?
Yok mu ilgilenen bir arkadaş?

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub OutlookMailGönder()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MsgBody As String
    On Error Resume Next
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    [B]OutApp.Visible = [COLOR=blue]True[/COLOR][/B]
    Set OutMail = OutApp.CreateItem(0)
    '****************************************************
    MsgBody = "Sayfa G&#252;ncellenmi&#351;tir<br><br><br>" & _
              "&#304;yi &#199;al&#305;&#351;malar."
    '****************************************************
        With OutMail
        .To = "[EMAIL="xxx@yyy.com"]xxx@yyy.com[/EMAIL]"
        .CC = ""
        .BCC = ""
        .Subject = "G&#252;nl&#252;k Sat&#305;&#351; Raporu"
        .HTMLBody = MsgBody
        '.Attachments.Add ("C:\test.txt")
        '.Display
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[mavisachal]

Teşekkurler dostum .To="xxx@yyy.com" seklinde olacak sanirim.

Teşekkurler tekrar.

 

[ozsah]

recep bey bu kodlarla her kayıt yapıldığında mail atarmı??

 

[hsayar]

Thisworkbooka aşağıdaki kodları yapıştırp denermisiniz?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

call OutlookMailGönder
End Sub

 

[baydeniro]

Paylaşım için teşekkürler.