Excel mail gönderme

[schlecht]

Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 11) = "" Then GoTo HATA

On Error GoTo HATA

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

saydir = WorksheetFunction.CountIf(Range("A:A"), "<>") + 1
DinamikAlan = "A1:" & "F28" & saydir
Set Alan = Worksheets("Özet").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

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

.Introduction = Cells(4, 11)

With .Item
.To = Cells(2, 11)
.CC = Cells(3, 11)
.Subject = Cells(1, 11)

.Send
End With

End With

daralan.Select
End With

Sayfa.Select

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


Excelden mail göndermek için bu kodu kullanıyordum. İş yerinde pc bozuldu ve başka bir bilgisayar kullanmaya başladım. Konu ve içeriği excelden alıyordu. Bilgisayar değişince excel içinden outlook açılıyor ve excelde yazan konu ve içerik aktarılmıyor. Bunun sebebi ne olabilir?

 

[schlecht]

2 bilgisayarda da Ofis 2010 yüklü

 

[turist]

DinamikAlan = "A1:" & "F28" & saydir yazan satırı

DinamikAlan = "A1:F" & saydir
şeklinde yazarak deneyin.

 

[schlecht]

Sayın turist denedim olmadı. Eski pc de outlook a hiç bilgi girişi yapmam gerekmiyordu, bilgileri excelden alıyordu şimdi ise excel içinde outlook açılıyor. Ayarlarda bir sorun olabilir mi?

 

[turist]

Excel Dosya örneğinizi eklerseniz çözüm bulabilmek daha kolay olur.
Ayrıca; OUTLOOK açık durumdayken deneyin.
OUTLOOK hesap ayarlarınızı kontrol edin.

 

[Korhan Ayhan]

Kod içinde hata verince devam edecek yapı var. İlgili satırı silip kodu F8 tuşu ile adım adım çalıştırıp haftaya sebep olan satırı tespit edin. Onun üzerinden yorum yapalım.