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?
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?
