Arkadaslar
asağıdaki kodun
With ActiveSheet.MailEnvelope
satırında hata veriyor
OffXp de vermiyordu simdi Off2000
kullanıyorum
references'ten tanımlamam gereken bir seymi var
eksik bir sistem dosyasımı var anlayamadım
bilgisi olan varmı
Sub Send_Range()
Sheets("MESAJ").Select
Dim Kime As String
Dim Kimden As String
Dim Mesaj As String
Dim Dugme As String
Dim Baslik As String
Kime = Range("C3").Value
Kimden = Range("C7").Value
Range("A1:M22").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = WorksheetFunction.Proper(Kimden) & " Tarafından Bırakılan Mesaj :"
.Item.To = Kime
.Item.Subject = "Mesajınız Var !... "
.Item.Send
End With
Application.Visible = True 'Excel'e Dön
Range("I1").Select
Mesaj = Kime & " adına göndermiş olduğunuz mail gitmiştir !..."
Dugme = vbOKOnly + vbInformation + vbDefaultButton1
Baslik = "Mail Gönderildi !..."
MsgBox Mesaj, Dugme, Baslik
End Sub
asağıdaki kodun
With ActiveSheet.MailEnvelope
satırında hata veriyor
OffXp de vermiyordu simdi Off2000
kullanıyorum
references'ten tanımlamam gereken bir seymi var
eksik bir sistem dosyasımı var anlayamadım
bilgisi olan varmı
Sub Send_Range()
Sheets("MESAJ").Select
Dim Kime As String
Dim Kimden As String
Dim Mesaj As String
Dim Dugme As String
Dim Baslik As String
Kime = Range("C3").Value
Kimden = Range("C7").Value
Range("A1:M22").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = WorksheetFunction.Proper(Kimden) & " Tarafından Bırakılan Mesaj :"
.Item.To = Kime
.Item.Subject = "Mesajınız Var !... "
.Item.Send
End With
Application.Visible = True 'Excel'e Dön
Range("I1").Select
Mesaj = Kime & " adına göndermiş olduğunuz mail gitmiştir !..."
Dugme = vbOKOnly + vbInformation + vbDefaultButton1
Baslik = "Mail Gönderildi !..."
MsgBox Mesaj, Dugme, Baslik
End Sub