Soru Mail düzenleme

[mustafaayd]

Merhabalar,

Aşağıda paylaştığım Kodda offline durumda hiç pc yok ise şu maili yamasını istiyorum. "Merhabalar," + Chr(10) + "Client odasında Offline cihaz yoktur" + Chr(10) + Chr(10) + "İyi Çalışmalar" Ama benım yazdıgım kodda
Merhabalar,

aaaaa Client sistem odasında Ofline olan cihazlar:

İsim----Hostname----Durum----Konum Bilgisi
Client odası online durumdadır.
Kontrol edilmesine gerek yoktur.

İyi Çalışmalar

Kontrol etmenizi rica ederim.

İyi Çalışmalar
Bu şekilde yazmaktadır.

Ofline cihazlar oldugundada


Merhabalar,
Ibtech Client sistem odasında Ofline olan cihazlar:

İsim----Hostname----Durum----Konum Bilgisi

aaaa----aaaaaa----Offline----Yer Bilgisi Yok.
Yok----aaaaaa----Offline----Yer Bilgisi Yok.
aaaa----aaaaa----Offline----Yer Bilgisi Yok.

Kontrol edilmesini rica ederim.
İyi Çalışmalar

Konu hakkında yardımclarınızı rica ederim.

 

[mustafaayd]

Sub ping_at()
    Dim sonuc  As Boolean
    Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem
    Set OutlookApp = New Outlook.Application
    Dim mail_text, mail_text_baslik As String
    lastrow = Worksheets("data").Cells(Rows.Count, "A").End(xlUp).Row
   

   
    For i = 2 To lastrow
        sonuc = Ping(Worksheets("data").Range("B" & i))
       
       
        If sonuc = True Then
            Worksheets("data").Range("C" & i) = "Online"
            Worksheets("data").Range("C" & i).Font.Color = RGB(0, 0, 0)
            Worksheets("data").Range("C" & i).Font.Color = RGB(0, 200, 0)
           
           
        ElseIf sonuc = False Then
            Worksheets("data").Range("C" & i) = "Offline"
            Worksheets("data").Range("C" & i).Interior.ColorIndex = 0
            Worksheets("data").Range("C" & i).Font.Color = RGB(200, 0, 0)
            Worksheets("data").Range("C" & i).Interior.ColorIndex = 6
            mail_text = mail_text + Chr(10) + Worksheets("data").Range("A" & i) + "----" + Worksheets("data").Range("B" & i) + "----" + Worksheets("data").Range("C" & i) + "----" + CStr(Worksheets("data").Range("D" & i))
        End If
       
    Next i
   
    If mail_text = "" Then mail_text = "Client odası online durumdadır." + Chr(10) + "Kontrol edilmesine gerek yoktur." + Chr(10) + Chr(10) + "İyi Çalışmalar"
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = Worksheets("ayar").Range("B2").Value
        .CC = Worksheets("ayar").Range("C2").Value
        .Subject = "Ibtech Client sistem odasında Ofline olan cihazlar hakkında"
        .Body = "Merhabalar," + Chr(10) + Chr(10) + "aaaaClient sistem odasında Ofline olan cihazlar:" + Chr(10) + Chr(10) + "İsim----Hostname----Durum----Konum Bilgisi" + Chr(10) + mail_text + Chr(10) + Chr(10) + "Kontrol etmenizi rica ederim." + Chr(10) + Chr(10) + "İyi Çalışmalar"
        '.SendUsingAccount = OutlookApp.Session.Accounts("xxxxx@hotmail.com")'eklemek istersen mail adresini yaz
        .Send
    End With
   
   
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
   
End Sub