Tick işareti varsa maille yolla

[muyat]

Dosyada mail yollarken mavi kutuya tıkladıgımda body kısmına tick işareti ile tanımlı olan şehrin yazmasını istiyorum.
100 numaralı kutucukda tick varken body kısmında "a1"hücresinin içini yazcak.KONYA
103 numaralı kutucukta tick varken body kısmında "a2"hücresinin içini yazcak.İZMİR
Fakat her ikisinde tick varken
KONYA
İZMİR
alt alta gelcek şekilde yazdıramıyorum.Yardımcı olur musunuz.

Sub YuvarlatılmışDikdörtgen1_Tıkla()
Set SA = Sheets("sayfa1")
 


Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
Set FSO = CreateObject("Scripting.FilesystemObject")


With OutLookMailItem

          

.Subject = "KISA CALISMA ÖDENEGİ BAŞVURUNUZLA İLGİLİ OLARAK"

SA.Select


If Range("MX100") = DOĞRU Then
.Body = SA.Range("A1")
End If



If Range("MX103") = DOĞRU Then
.Body = SA.Range("A2")
End If





    
'.send
.Display

End With

Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
Set FSO = Nothing



    
Application.Goto Reference:=Worksheets("sayfa1").Range("A16:B16"), Scroll:=False
 
With OutLookMailItem

End With

Set SA = Nothing
          
            
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub YuvarlatılmışDikdörtgen1_Tıkla()
    Dim OutLookApp As Object
    Dim OutLookMailItem As Object
    Dim myAttachments As Object
    Dim SA As Worksheet
    
    Set OutLookApp = CreateObject("Outlook.application")
    Set OutLookMailItem = OutLookApp.CreateItem(0)
    Set myAttachments = OutLookMailItem.Attachments
    Set FSO = CreateObject("Scripting.FilesystemObject")
    
    Set SA = Sheets("sayfa1")
    
    
    With OutLookMailItem
        .Subject = "KISA CALISMA ÖDENEGİ BAŞVURUNUZLA İLGİLİ OLARAK"
        
        .Display
    
        If SA.Range("MX100").Value = True And SA.Range("MX103").Value = True Then
            .HtmlBody = "<p style=""font:11pt Calibri;"">" & SA.Range("A1").Value & "<br>" & SA.Range("A2").Value & "</p>" & .HtmlBody
        ElseIf SA.Range("MX100").Value = True Then
            .HtmlBody = "<p style=""font:11pt Calibri;"">" & SA.Range("A1").Value & "</p>" & .HtmlBody
        ElseIf SA.Range("MX103").Value = True Then
            .HtmlBody = "<p style=""font:11pt Calibri;"">" & SA.Range("A2").Value & "</p>" & .HtmlBody
        End If
    
        '.Send
    End With
    
    Set OutLookMailItem = Nothing
    Set OutLookApp = Nothing
    Set FSO = Nothing
    Set SA = Nothing
End Sub

 

[muyat]

Korhan Hocam
Bu bahsettiginize benzer yöntem benim de aklima geldi.
Fakat diyelimki A sutununda cok daha fazla şehir ismi varsa mesela 20 sehir ismi oldugunu dusunursek if ile baslayan bir suru kombinasyon yapmak gerekecek.
Bunun daha baska bi yolu yok mudur?

 

[Korhan Ayhan]

Sorunuza göre cevap verdim.

Eğer daha fazla veri var derseniz DÖNGÜ kurmanızı önerebilirim.

Dersane bölümünde döngülerle ilgili bilgilere ulaşabilirsiniz.