Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/05/2019 22:02
Konu Sahibi
ertus35
Yorumlar
20
Okunma
596
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ertus35

ertus35

Üye
103369
 36
 4
 19
 26/03/2019
0
 İzmir
 MİMAR
 Ofis 2007
 23/06/2019,13:54
(11/05/2019 02:16)haliliyas Adlı Kullanıcıdan Alıntı: ama  eğer tek hücre ekleyecekseniz yani sadece "K" yı o zaman modüle falan gerek yok doğrudan 
kodu aşağıdaki gibi yapın

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub MailActiveSheet()

Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim i As Integer
Dim rng As Range
Set rng = Nothing

i = ActiveCell.Row '<======== i= seçtiğimiz satırı gösterir satırdaki herhangi bir hücreye basılabilir
        
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


    On Error Resume Next
    With OutMail
        .to = ""
        .CC = ""
        .BCC = ""
        .Subject = "IT WORK ORDER"
                .Body = "Sayın İlgililer:" & vbNewLine & _
                    "IT Departmanı ile ilgili yeni oluşturulan iş emrini aşağıda görebilirsiniz." & _
                     vbNewLine & "İyi Çalışmalar" & vbNewLine & vbNewLine & _
                     Range("K" & i).Value
        '.Attachments.Add Destwb.FullName
        '.Send
        .Display
    End With
    On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

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


Tamam Hocam sehven silmişim Modül 3 ü. Ama dediğiniz gibi sadece K'yı ekleyeceğim. En son gönderdiğiniz kodlamayı kullandım. Çalıştı.

Emeğinize sağlık. Teşekkür ederim.

Saygılarımla




Bu Konudaki Yorumlar

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Tarih Ve İki Saat Arası Sorgu Formülü furens 5 242 18/06/2019, 15:28
Son Yorum: furens
Çözüldü Formlar Arası İlişki metınaycıcek 2 168 03/06/2019, 00:32
Son Yorum: metınaycıcek
Çözüldü Excel Kodu Access Koda Çevirmek C*e*l*o*y*c*e 3 213 18/05/2019, 01:34
Son Yorum: C*e*l*o*y*c*e
Çözüldü Form Access Ten Ayrı Açılsın Problem ! icemeno 3 205 26/04/2019, 09:27
Son Yorum: halily
Çözüldü EXCEL e Access Tablosundaki İstediğimiz alanları ve veriyi atma blacksir 4 3.822 16/04/2019, 21:49
Son Yorum: next

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.