Gönder butonuna tıkladığımda mesaj vermesini nasıl yaparım

[ersoyalan]

Arkadaşlar merhaba,

Yapmak istediğim Sol taraftaki Send e-mail butonuna tıklandığı anda GÜNCEL ATM ADEDİ' yazılmamış ise Yazılmadığına dair bir mesaj vermesi..Eğer GÜNCEL ATM ADEDİ yazılmış ise mesaj vermesin ve mail gönderme işleminin devam etmesini istiyorum.Bu işlemin bütün sheet'ler için geçerli olması gerekiyor.

Yardımcı olursanız sevinirim.

Saygılarımla,
E.ALAN

 

[Ayhan Ercan]

Merhaba Sn ersoyalan

GÜNCEL ATM ADEDİ nereye yazılıyor?

Tarih için yer var Toplam Atm için yer var, GÜNCEL ATM ADEDİ hangi hücreye yazılıyorki?

 

[ersoyalan]

Merhaba,

Toplam ATM adedi yazan kısmın sağ tarafına yani E:7 hücresine

Syg,
E.ALAN

 

[Ayhan Ercan]

Tekrar merhaba sn ersoyalan

Kodlarınıza ilave edilecek satırların yerleri ve yazılışları kırmızı renkli olarak aşağıdadır.. Denermisiniz.. ?

On Error Resume Next
.......
.......
.......
    [B][COLOR=red]If [e7].Value <> "" Then[/COLOR][/B]
        With OutMail
            .To = "[EMAIL="xxxx@xxxx.com.tr"]xxxx@xxxx.com.tr[/EMAIL]"
            .CC = ""
            .BCC = ""
            .Subject = "Günlük Operasyon Raporu hk."
            .Body = "Merhaba," & Chr(13) & Chr(13) & _
            "Günlük operasyon raporu ektedir." & Chr(13) & Chr(13) & _
            "Saygılarımızla," & Chr(13) & Chr(13) & _
            "xxxxxxxxxxx" & Chr(13) & Chr(13) & _
            "Tel:xxx xx xx" & Chr(13) & Chr(13) & _
            "Tel:xxx xx xx" & Chr(13) & Chr(13) & _
            "e-mail:xxxxxxxxxx@xxxxx.com.tr" & Chr(13) & Chr(13)
            .Attachments.Add ActiveWorkbook.FullName
            'You can add other files also like this
            .Display   'or use .Send
        End With
    [B][COLOR=red]Else
    MsgBox "GÜNCEL ATM ADEDİ belirtilmemiş! Mail Gönderilmeyecek!", , "UYARI": Exit Sub
    End If
[/COLOR][/B]    On Error GoTo 0
.......
.......

 

[ersoyalan]

Hocam siz mükemmelsiniz nediyeceğimi bilemiyorum çok teşekkürderim .

Vermiş olsuğunuz kod tam isteğim kod sağolun.

Saygılar,

İyi çalışmalar.

E.ALAN

 

[Ayhan Ercan]

Hocam siz mükemmelsiniz nediyeceğimi bilemiyorum çok teşekkürderim .

Vermiş olsuğunuz kod tam isteğim kod sağolun.

Saygılar,

İyi çalışmalar.

E.ALAN

Rica ederim.
Size de iyi Çalışmalar .. k::

 

[ersoyalan]

Hocam tekrar merhaba,

Peki şunu yapabilirmiyiz.Genel Toplam sheet'te güncel ATM adedini yazmak için hücre yok.Genel toplam sheet'tini vermiş olduğunuz koddan bağımsız yapabilirmiyiz.sedece güncel atm adedi yazan sheetler için geçerli olması..

Syg,

E.ALAN

 

[Ayhan Ercan]

Tekrar Merhaba,

Aşağıdaki Kodları denermisiniz ?

Sub Mail_workbook_Outlook_1()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
   [COLOR=black]If ActiveSheet.Name <> "GENEL TOPLAM" Then[/COLOR]
        If [e7].Value <> "" Then
   10       With OutMail
                .To = "[EMAIL="xxxx@xxxx.com.tr"]xxxx@xxxx.com.tr[/EMAIL]"
                .CC = ""
                .BCC = ""
                .Subject = "G&#252;nl&#252;k Operasyon Raporu hk."
                .Body = "Merhaba," & Chr(13) & Chr(13) & _
                "G&#252;nl&#252;k operasyon raporu ektedir." & Chr(13) & Chr(13) & _
                "Sayg&#305;lar&#305;m&#305;zla," & Chr(13) & Chr(13) & _
                "xxxxxxxxxxx" & Chr(13) & Chr(13) & _
                "Tel:xxx xx xx" & Chr(13) & Chr(13) & _
                "Tel:xxx xx xx" & Chr(13) & Chr(13) & _
                "e-mail:xxxxxxxxxx@xxxxx.com.tr" & Chr(13) & Chr(13)
                .Attachments.Add ActiveWorkbook.FullName
                .Display
            End With
        Else
        MsgBox "G&#220;NCEL ATM ADED&#304; belirtilmemi&#351;! Mail G&#246;nderilmeyecek!", , "UYARI": Exit Sub
        End If
    Else: GoTo 10
    End If
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[ersoyalan]

Hocam çok teşekkürederim tam istediğim gibi olmuş ellerinize yüreğinize sağlık.

Kolay gelsin

İyi çalışmalar.

 

[Ayhan Ercan]

Hocam çok teşekkürederim tam istediğim gibi olmuş ellerinize yüreğinize sağlık.

Kolay gelsin

İyi çalışmalar.

Rica Ederim.
Size de İyi Çalışmalar... k::

 

[ersoyalan]

Ayhan hocam merhaba,

Biraz fazla oluyorum fakat tekrar yardımınıza ihtiyacım var.Ekli dosyayı incelermisiniz.


Saygılarımla,

E.ALAN

 

[Ayhan Ercan]

Sn ersoyalan

Ne yalan söyliyeyim, kesin deneme fırsatım olmadı ama aklıma aşağıdaki gibi bişey geldi.

Kırmızı renkli satırları önceki koddaki yerleriyle değiştirip denermisiniz. ?

Sub Mail_workbook_Outlook_1()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    [COLOR=red][B]If Right(ActiveSheet.Name, 12) <> "GENEL TOPLAM" Then[/B][/COLOR]
        [COLOR=red][B]If [e46].Value <> "" Then[/B][/COLOR]
            With OutMail
                .To = "[EMAIL="xxxx@xxxx.com.tr"]xxxx@xxxx.com.tr[/EMAIL]"
                .CC = ""
                .BCC = ""
.....
.....
.....
End Sub

 

[ersoyalan]

Hocam tam emin değilim diyorsunuz fakat tam cevabı veriyorsunuz bu nasıl oluyor....Siz nasıl bişeysiniz.. )

Çok teşekkürderim.

Syg,

E.ALAN