- Katılım
- 9 Kasım 2020
- Mesajlar
- 39
- Excel Vers. ve Dili
- 365 türkce
- Altın Üyelik Bitiş Tarihi
- 16-04-2024
arkadaşlar bir dizi teklif hazırlıyorum ve mail gönderiyorum yapamadığım body kısmına etiket sayfasındaki (resim1) adlı şekli ekleyemedim yada resimi yardımcı olabilirmisiz
Private Sub Cmd4_MailGönder_Click()
Dim pdfdosya, Objoutlook, outmail, resim1 As Variant
Call Cmd4_PdfOlustur_Click
Application.ScreenUpdating = False
pdfdosya = ThisWorkbook.Path & "\" & "Pdf_dosya" & "\" & txtfirmaadi.Value & txtteklifno.Value & ".pdf"
Set Objoutlook = CreateObject("Outlook.Application")
Set outmail = Objoutlook.CreateItem(0)
With outmail
.Display
.Subject = "Teklif Dosyası"
.body = resim1 & " İSTEMİŞ OLDUĞUNUZ FİYAT VE TEKLİF EKTE SUNULMUŞTUR BİLGİNİZE" & vbNewLine & cmbteklifveren
.body.Add ThisWorkbook.Path & "\" & "xxresimxx.jpg"
.Attachments.Add pdfdosya
.To = La4_Email.Caption
.Display
'.Send
End With
Application.Wait (Now + TimeValue("00:00:15"))
Application.ScreenUpdating = True
End Sub
Private Sub Cmd4_MailGönder_Click()
Dim pdfdosya, Objoutlook, outmail, resim1 As Variant
Call Cmd4_PdfOlustur_Click
Application.ScreenUpdating = False
pdfdosya = ThisWorkbook.Path & "\" & "Pdf_dosya" & "\" & txtfirmaadi.Value & txtteklifno.Value & ".pdf"
Set Objoutlook = CreateObject("Outlook.Application")
Set outmail = Objoutlook.CreateItem(0)
With outmail
.Display
.Subject = "Teklif Dosyası"
.body = resim1 & " İSTEMİŞ OLDUĞUNUZ FİYAT VE TEKLİF EKTE SUNULMUŞTUR BİLGİNİZE" & vbNewLine & cmbteklifveren
.body.Add ThisWorkbook.Path & "\" & "xxresimxx.jpg"
.Attachments.Add pdfdosya
.To = La4_Email.Caption
.Display
'.Send
End With
Application.Wait (Now + TimeValue("00:00:15"))
Application.ScreenUpdating = True
End Sub