Makroda 2010 - 2013 uyuşmazlığı

[ojibu]

office 2010 kullanırken hata vermeyen makro 2013 office yükleyince aşağıdaki satırda hata veriyor. Ne yapabilirim?

ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

 

[ojibu]

Yok mu cevap verecek bir arkadaş

 

[Ömer BARAN]

Sorunlu (2013) ve sorunsuz (2010) olduğunu belirttiğiniz belgelerin
birer örneğini ekleyerek destek isterseniz daha hızlı sonuca ulaşacağınızı düşünüyorum.

Örnek belge özellikleri ve örnek belge yükleme konusundaki
açıklamalar cevabımın altındaki İMZA bölümünde mevcut.
.

 

[ojibu]

kod şöyle

Sub Smsform_Tıklat()

For Each x In Range("d16")

x.Value = Application.Proper(Application.Trim(x.Value))
Next

Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

With Application
.ScreenUpdating = False
.EnableEvents = False
End With
If MsgBox("SMS Formu göndermek istediğinizden eminmisiniz?", vbYesNo + vbInformation) = vbNo Then Exit Sub

For Each x In Range("d16")
x.Value = Application.Proper(Application.Trim(x.Value))

Next
saydir = WorksheetFunction.CountIf(Range("A:A"), "<>") + 1
DinamikAlan = "B2:" & "M32" & saydir
Set Alan = Worksheets("SMS").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = ""

With .Item
.To = "xxxxx@xxxxx.comr"
.CC = ""
.Subject = "SMS Gönderme Talep Formu"
.bcc = ""
.Send

End With

End With

daralan.Select
End With

Sayfa.Select

HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub

 

[ojibu]

Bu makro 2010 sorunsuz çalışıyor, ancak 2013 te yukarıdaki hatayı veriyor

 

[Korhan Ayhan]

Merhaba,

Ben kodunuzu aşağıdaki şekil değiştirip denedim. 2016 versiyonda sorun çıkmadı.

Option Explicit

Sub Smsform_Tıklat()
    Dim Say As Long, Sayfa As Worksheet
    Dim Alan As Range, Dinamik_Alan As String, Hucre As Range
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    If MsgBox("SMS Formu göndermek istediğinizden eminmisiniz?", vbYesNo + vbInformation) = vbNo Then Exit Sub
    
    [COLOR="Red"]ThisworkBook.Save[/COLOR]

    Say = WorksheetFunction.CountIf(Worksheets("SMS").Range("A:A"), "<>") + 1
    Dinamik_Alan = "B2:" & "M" & Say
    
    Set Alan = Worksheets("SMS").Range(Dinamik_Alan)
    
    Set Sayfa = ActiveSheet
    
    With Alan
        .Parent.Select
        
        Set Hucre = ActiveCell
    
        ActiveWorkbook.EnvelopeVisible = True
    
        With .Parent.MailEnvelope
            .Introduction = ""
            With .Item
                .To = "xxxxx@xxxxx.comr"
                .CC = ""
                .Subject = "SMS Gönderme Talep Formu"
                .bcc = ""
                .Send
            End With
        End With
    
        Hucre.Select
    End With
    
    Sayfa.Select
    
HATA:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

 

[ojibu]

İlginiz için teşekkür ederim. Aşağıdaki hatayı aldım.
method 'envelopevisible' of object workbook failed

 

[Korhan Ayhan]

Nette biraz arama yaptım.

Outlook sürümü excel sürümünden daha yeni ise bu kodlar hataya sebep oluyormuş.

Sizde böyle bir durum var mı?

 

[ojibu]

Sizilere zahmet verdik. offfice 2013 kurunca ikiside yenileniyor. Tek outlook kurma şansım yok zaten.

 

[Korhan Ayhan]

Merhaba,

Nette mail atmadan evvel dosyayı kaydedin şeklinde bir açıklama okudum. Üstteki mesajımdaki koda kırmızı eklemeyi yaptım. Bu haliyle bir deneyiniz.

Olumlu sonuç almazsanız ofisi onarmayı deneyin. Bu çözüm olabilir.

Bunlardan sonuç alamazsanız bilgisayarınıza bağlanıp denemek isterim.