A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Birden Fazla Resimi Aynı Anda Taşıma Ve Tabloya Link Alma
#31
msgbox StrReverse(Split(Mid(StrReverse(txtDYolu), 2, Len(txtDYolu)), "\")(0))

ile resmin bulundugu klasor ismini alabilirsiniz.



  Alıntı
Bu mesajı beğenenler: halily
#32
Teşekkürler



  Alıntı
Bu mesajı beğenenler:
#33
slm bu örneğimizde tarattığımız dosya yolu kullanılarak bir buton olayına

Visual Basic
  1. Dim mailtotext As String
  2.  
  3. mailtotext = Me.MailAdres
  4.        iFile1 = Me.Aciklama
  5.  
  6.  
  7.        Dim mess_body As String
  8.        Dim appOutLook As Outlook.Application
  9.        Dim MailOutLook As Outlook.MailItem
  10.        Set appOutLook = CreateObject("Outlook.Application")
  11.        Set MailOutLook = appOutLook.CreateItem(olMailItem)
  12.  
  13.            Set appOutLook = CreateObject("Outlook.Application")
  14.            Set MailOutLook = appOutLook.CreateItem(olMailItem)
  15.            With MailOutLook
  16.            .To = mailtotext
  17.            .subject = Me.subject
  18.            .body = Me.body
  19.  
  20.            .Attachments.Add iFile1
  21.  
  22.          '  If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
  23.          '     .Attachments.Add (Me.Mail_Attachment_Path)
  24.          ' End If
  25.  
  26.            .Send
  27.            End With
  28.            Exit Sub
  29. email_error:
  30.            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
  31.            Resume Error_out
  32. Error_out:


 ile outlok üzerinden mail gönderiyorum.
Gmail smpt ile yollama  şansımız varmıdır. ben uğraştım ama yapamadım.



  Alıntı
Bu mesajı beğenenler:
#34
Gmail-ile-gonderilen-mailin-ekine-pdf-eki konusu incelenebilir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Ms Excel'deki 1'den Fazla Worksheet'ten 1 Tanesini Import Etmek İlhanYaylıcı 2 54 06-02-2020, 14:22
Son Mesaj: İlhanYaylıcı
  Excel'den Var Olan Tabloya Veri Alma adnan 12 158 05-02-2020, 22:23
Son Mesaj: abkbek
  [SORGU] Sorgu Içinde Birden Fazla Sorgu Oluşturmak footprinting 2 104 04-02-2020, 11:45
Son Mesaj: footprinting
  [MAKRO] Makroya Birden Fazla Kriter Yazılması M_Kemal_Askeri 1 70 02-02-2020, 23:26
Son Mesaj: alperalper
  Excelden Veri Alma Ve Kaydı Güncelleme yahyamacit 5 105 31-01-2020, 00:16
Son Mesaj: yahyamacit
  [FORM] Sürekli Formda Alt Toplam Alma Ahmet51 2 82 24-01-2020, 15:45
Son Mesaj: Ahmet51
  [FORM] Form Da Bulunan Birden Fazla Veriyi EXcel E Aktarmak footprinting 2 77 21-01-2020, 17:03
Son Mesaj: footprinting
  [SORGU] Dlookup Ile Birden Fazla Koşulla Veri çekmek footprinting 3 108 09-01-2020, 14:22
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi