Soru Hücre değerlerine göre otomatik mail butonu ve farklı mail senaryoları

R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Sayın Üstadlarım, herkese merhaba,

Forumda benzer paylaşımlar olmasına rağmen, uyarlayabileceğim bir yanıt bulamadığım için sizlere sormayı düşündüm.

Soru şu:

Resimde de göreceğiniz gibi; bir takım koşullara bağlı olarak 3 adet sonuç hücresi geliyor. Lakin bu sonuç hücreleri sabit değil. Başka bir dosyadan çektiğim verilere göre hesaplamalar yapılıp bu sonuç hücreleri yazdırılıyor.

3 sütunda maile konu olabilecek 4 hata var. Şayet sonuç hücrelerinde belirttiğim hatalardan herhangi biri gelirse, yan tarafında hataya göre mail butonu belirsin ve bu butonların üzerine tıklandığında önizleme yapılsın.

To hanesine A2 hücresindeki mail adresi, CC hanesine D sütunundaki (belki varsa E sütunundaki mail adresleri) yazılarak mail gönderilebilsin.

Tabii ki, her bir hata senaryosunda mail gövdesi de değişmesi gerekiyor.

Böyle bir şey mümkün mü?

Mümkünse ilgili kodlar nasıl olmalı.

Şimdiden tüm üstadlara teşekkürlerimle
 

Ekli dosyalar

Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Her satırda buton oluşturmak yerine tek bir butonla tüm tabloyu yönetebilirsiniz.

Döngü ile paylaştığınız resimdeki koşul sütunları kontrol edilip mail penceresi açılabilir. Bununla ilgili forumda örnekler vardı. Arama yaparsanız ulaşabilirsiniz.
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Teşekkür ederim üstad. Tekrar arama yapıp dediğiniz şekilde yapmaya çalışacağım.
Sağolun.
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Korhan Ayhan' Alıntı:
Merhaba,

Her satırda buton oluşturmak yerine tek bir butonla tüm tabloyu yönetebilirsiniz.

Döngü ile paylaştığınız resimdeki koşul sütunları kontrol edilip mail penceresi açılabilir. Bununla ilgili forumda örnekler vardı. Arama yaparsanız ulaşabilirsiniz.
Genişletmek için tıkla ...
Maalesef yapamadım üstad. Ufak ta olsa bir yardım rica edebilir miyim?
Şimdiden teşekkürler.
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosyanızı paylaşır mısınız?
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Mailler direkt gönderilecek mi? Yoksa siz tek tek onaylayarak mı göndermek istiyorsunuz?
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Maillerin KONU bölümüne ne yazılacak?
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++: 
Option Explicit

Sub Created_Mail()
    Dim S1 As Worksheet, My_Data As Range, Last_Row As Long
    Dim Outlook_App As Object, New_Mail As Object, My_Message As String
    
    Set S1 = Sheets("Sheet1")
    
    On Error Resume Next
    Set Outlook_App = GetObject(, "Outlook.Application")
    On Error GoTo 0
    
    If Outlook_App Is Nothing Then Call Shell("Outlook.exe", vbHide)
    
    Set Outlook_App = VBA.CreateObject("Outlook.Application")
    
    Last_Row = S1.Cells(S1.Rows.Count, 1).End(3).Row
    
    For Each My_Data In S1.Range("M2:O" & Last_Row)
        Set New_Mail = Outlook_App.CreateItem(0)
        Select Case My_Data.Column
            Case 13
                If My_Data.Value = "ORTALAMANIN ÜZERİNDE" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "H").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "G") & " olarak gerçekleştirildiğinden ""ORTALAMANIN ÜZERİNDE""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Gerçekleşen fark " & Format(S1.Cells(My_Data.Row, "G") / S1.Cells(My_Data.Row, "H"), "% 0.00") & " dir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                
                ElseIf My_Data.Value = "EKSİK" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "H").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "G") & " olarak gerçekleştirildiğinden ""EKSİK""" & " olarak değerlendirilmiştir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                End If
        
            Case 14
                If My_Data.Value = "ORTALAMANIN ÜZERİNDE" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "J").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "I") & " olarak gerçekleştirildiğinden ""ORTALAMANIN ÜZERİNDE""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Gerçekleşen fark " & Format(S1.Cells(My_Data.Row, "I") / S1.Cells(My_Data.Row, "J"), "% 0.00") & " dir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                
                ElseIf My_Data.Value = "EKSİK" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "J").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "I") & " olarak gerçekleştirildiğinden ""EKSİK""" & " olarak değerlendirilmiştir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                End If
        
            Case 15
                If My_Data.Value = "EMNİYETSİZ" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "L").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "K") & " olarak gerçekleştirildiğinden ""EMNİYETSİZ""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Lütfen verileri kontrol ediniz." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                
                ElseIf My_Data.Value = "HATALI" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "L").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "K") & " olarak gerçekleştirildiğinden ""HATALI""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Lütfen verileri kontrol ediniz." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                End If
        End Select
    Next
    
    Set S1 = Nothing
    Set Outlook_App = Nothing
    Set New_Mail = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Korhan Ayhan' Alıntı:
Deneyiniz.

C++: 
Option Explicit

Sub Created_Mail()
    Dim S1 As Worksheet, My_Data As Range, Last_Row As Long
    Dim Outlook_App As Object, New_Mail As Object, My_Message As String
    
    Set S1 = Sheets("Sheet1")
    
    On Error Resume Next
    Set Outlook_App = GetObject(, "Outlook.Application")
    On Error GoTo 0
    
    If Outlook_App Is Nothing Then Call Shell("Outlook.exe", vbHide)
    
    Set Outlook_App = VBA.CreateObject("Outlook.Application")
    
    Last_Row = S1.Cells(S1.Rows.Count, 1).End(3).Row
    
    For Each My_Data In S1.Range("M2:O" & Last_Row)
        Set New_Mail = Outlook_App.CreateItem(0)
        Select Case My_Data.Column
            Case 13
                If My_Data.Value = "ORTALAMANIN ÜZERİNDE" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "H").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "G") & " olarak gerçekleştirildiğinden ""ORTALAMANIN ÜZERİNDE""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Gerçekleşen fark " & Format(S1.Cells(My_Data.Row, "G") / S1.Cells(My_Data.Row, "H"), "% 0.00") & " dir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                
                ElseIf My_Data.Value = "EKSİK" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "H").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "G") & " olarak gerçekleştirildiğinden ""EKSİK""" & " olarak değerlendirilmiştir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                End If
        
            Case 14
                If My_Data.Value = "ORTALAMANIN ÜZERİNDE" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "J").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "I") & " olarak gerçekleştirildiğinden ""ORTALAMANIN ÜZERİNDE""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Gerçekleşen fark " & Format(S1.Cells(My_Data.Row, "I") / S1.Cells(My_Data.Row, "J"), "% 0.00") & " dir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                
                ElseIf My_Data.Value = "EKSİK" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "J").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "I") & " olarak gerçekleştirildiğinden ""EKSİK""" & " olarak değerlendirilmiştir." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                End If
        
            Case 15
                If My_Data.Value = "EMNİYETSİZ" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "L").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "K") & " olarak gerçekleştirildiğinden ""EMNİYETSİZ""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Lütfen verileri kontrol ediniz." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                
                ElseIf My_Data.Value = "HATALI" Then
                    My_Message = "Sn. İlgili," & "<br><br>" & S1.Cells(My_Data.Row, "F").Value & " tarihinde yapmış olduğunuz operasyon, " & _
                                 S1.Cells(My_Data.Row, "L").Value & " olması gerekirken " & _
                                 S1.Cells(My_Data.Row, "K") & " olarak gerçekleştirildiğinden ""HATALI""" & " olarak değerlendirilmiştir." & "<br><br>" & _
                                 "Lütfen verileri kontrol ediniz." & "<br><br>" & "Bilgilerinize."
                    My_Message = "<p style='color:black;font-family:Calibri (Gövde);font-size:14.5'>" & My_Message & "</font></p>"
                    
                    With New_Mail
                        .Display
                        .To = S1.Cells(My_Data.Row, "A").Value
                        .CC = S1.Cells(My_Data.Row, "C").Value & "," & S1.Cells(My_Data.Row, "D").Value & "," & S1.Cells(My_Data.Row, "E").Value
                        .BCC = ""
                        .Subject = S1.Cells(1, My_Data.Column).Value
                        .HTMLBody = My_Message & .HTMLBody
                        .BodyFormat = 2
                        .Save
                        '.Send
                    End With
                End If
        End Select
    Next
    
    Set S1 = Nothing
    Set Outlook_App = Nothing
    Set New_Mail = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
[/QUOTE]

Bu şekilde hata verdi

[ATTACH type="full" alt="233653"]233653[/ATTACH]
Genişletmek için tıkla ...
 

Ekli dosyalar

Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sanki makrolar etkinleşmemiş gibi görünüyor.

Kontrol ediniz.
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Makro ayarları şu şekilde :

233654
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Korhan Bey, yardımınızı istirham ediyorum.
Saygılarımla
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Dosyanızı açınız.
ALT+F11 tuşlarına basarak kod editörünü açınız.
INSERT menüsünden MODULE ekleyiniz.
Sağ tarafta açılan beyaz pencereye verdiğim kodu yapıştırınız.

Sonra excel sayfasına geri dönünüz.
Sayfaya bir buton ekleyiniz.
Buton üzerinde sağ tıklayınız.
Açılan menüden MAKRO ATA seçeneğini seçiniz.
Açılan ekranda makr adına tıklayıp TAMAM diyerek işlemi tamamlayınız.

Son olarak dosyanızı farklı kayıt ediniz. Bu işlem sırasında dosya türü bölümünden "Makro İçerebilen Excel Çalışma Kitabı" seçeneğini seçiniz.

Artık butona tıkladığınızda kodun çalışması için bir engel olmaması gerekir.
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
Hocam merhaba,

Dediklerinizi zaten yapmıştım lakin;

233671

Bu uyarı çıkmasına rağmen, gönderim öncesi ön izleme olmadığı gibi, Outlook ta (gönderilemeyecek olmasına rağmen) gönderilen herhangi bir şey de olmuyor maalesef.

Hülasa bir şeyleri yanlış yapıyorum ama ne, bir türlü bulamadım.
 
N

necati

Katılım
20 Şubat 2007
Mesajlar
670
Excel Vers. ve Dili
2007 Excel, Word Tr
Merhaba,
Aşağıdaki satırı pasif yapıp dener misiniz.
Kod: 
Set New_Mail = Outlook_App.CreateItem(0)
Sonra aynı satırı "For ..." satırından sonra yapıştırın. Yani şöyle:
Kod: 
    For Each My_Data In S1.Range("M2:O" & Last_Row)
     Set New_Mail = Outlook_App.CreateItem(0)
     Select Case My_Data.Column
 
R

razehol

Katılım
6 Ocak 2011
Mesajlar
50
Excel Vers. ve Dili
2010 ingilizce/Türkçe
Altın Üyelik Bitiş Tarihi
27.03.2023
necati' Alıntı:
Merhaba,
Aşağıdaki satırı pasif yapıp dener misiniz.
Kod: 
Set New_Mail = Outlook_App.CreateItem(0)
Sonra aynı satırı "For ..." satırından sonra yapıştırın. Yani şöyle:
Kod: 
    For Each My_Data In S1.Range("M2:O" & Last_Row)
     Set New_Mail = Outlook_App.CreateItem(0)
     Select Case My_Data.Column
Genişletmek için tıkla ...
Öncelikle ilginiz için teşekkür ederim.

Lakin hiç bir değişiklik olmadı
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Dün farklı bir bilgisayarda kodu tasarlamıştım. O bilgisayarda Türkçe karakter problemi olduğu için sağlıklı deneme yapamamıştım.

Şimdi Türkçe karakter sorunu olmayan bir bilgisayarda kodu denedim. Necati beyin bahsettiği düzeltmeyi yapmak gerekiyor. O satırı ben döngü dışında bırakmıştım. Bu düzeltmeyi yapınca sorunsuz şekilde mailler bende oluştu.

Benim deneme yaptığım dosyanız ektedir.

Sizin paylaştığınız son görselde dikkat ederseniz Türkçe karakterler bozuk görünüyor. Sizde benim yaşadığım sorunu yaşamış olabilirsiniz.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Üst