[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
  [FONKSiYON] Bölünmüş Veri Tabanın Yedeğini Alma webtenoyna 1 87 19-02-2024, 01:48
Son Mesaj: dsezgin
  Aramada Hep Aynı Veriler Geliyor ankaram 4 126 21-11-2023, 10:46
Son Mesaj: ankaram
  Birden Fazla Alandaki Veriyi Sorguda Alt Alta Birleştirme adnnfrm 3 158 18-11-2023, 19:54
Son Mesaj: dsezgin
  [VBA] Web Den Resim Linklerini Alma hedefkaya 4 126 12-11-2023, 02:32
Son Mesaj: dsezgin
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 295 20-10-2023, 00:36
Son Mesaj: dsezgin
  Ortalama Alma snapper 13 216 30-09-2023, 18:30
Son Mesaj: dsezgin
  [VBA] Webden Veri Alma idrisy 1 130 26-08-2023, 04:15
Son Mesaj: dsezgin
  Döngü Ile Veri Alma ates2014 5 161 26-08-2023, 01:38
Son Mesaj: halily

Foruma Git:


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