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

Derecelendirme: 0/5 - 0 oy
ertus35

ertus35

Üye
103369
 36
 4
 19
 26/03/2019
0
 İzmir
 MİMAR
 Ofis 2007
 18/06/2019,23:26
Ekledim dosyayı.



halily

halily

Uzman
65596
ha....
 26
 1.161
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,08:36
benim gönderdiğim dosyada "modül3" vardı, "rangetohtml()" fonksiyonu orada tanımlıydı. "Modul3" silinmiş
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



...........
ertus35

ertus35

Üye
103369
 36
 4
 19
 26/03/2019
0
 İzmir
 MİMAR
 Ofis 2007
 18/06/2019,23:26
(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




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 152 18/06/2019, 15:28
Son Yorum: furens
Çözüldü Formlar Arası İlişki metınaycıcek 2 140 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 172 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 179 26/04/2019, 09:27
Son Yorum: halily
Çözüldü EXCEL e Access Tablosundaki İstediğimiz alanları ve veriyi atma blacksir 4 3.764 16/04/2019, 21:49
Son Yorum: next

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