Userform'u mail body'de resim olarak gönder

[glinthalas]

Merhaba arkadaşlar,

Userform1 'i mail içerisinde body kısmına resim olarak gönderek komuta ihtiyacım bulunmakta. Daha önce konu açılmış ancak cevap dönülmemiş.

http://www.excel.web.tr/f48/userform-uzerinden-userformu-mail-olarak-gonderme-t129451.html


Selamlar
Yasin

 

[halit3]

Merhaba belki farklı bir yolları vardır şöyle bir şey işinizi görürmü
kodu bir userformun içine koyun bir adet CommandButton1 ekleyin ve (CommandButton1_Click) düğmesine tıklayın

Kodun işlevi sayfaya ve masa üstüne userformun resmini ekliyor.

#If Win64 Then
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#Else
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If

Private Sub CommandButton1_Click()


Klasor = CreateObject("wscript.Shell").SpecialFolders("Desktop") 'ThisWorkbook.Path
dosya_adi = "resim"
sat = CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files.Count
dosyaadı = dosya_adi & sat + 1 & ".jpg"
Application.Wait (Now + TimeValue("0:00:1"))

Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents

Set grafik = ActiveSheet.ChartObjects.Add(10, 10, Me.Width, Me.Height)
grafik.Chart.Paste
grafik.Chart.Export Klasor & "\" & dosyaadı
grafik.Delete

yer = Klasor & "\" & dosyaadı

Range("a2").Select
ad = ActiveSheet.Pictures.Insert(yer).Name
ActiveSheet.Shapes(ad).OLEFormat.Object.Select
ActiveSheet.Shapes(ad).OLEFormat.Object.ShapeRange.LockAspectRatio = msoFalse
ActiveSheet.Shapes(ad).OLEFormat.Object.Name = "resim" & sat

End Sub

Private Sub UserForm_Initialize()
Me.StartUpPosition = 3
End Sub

daha sonra ilgili linkdeki (.Attachments.Add ActiveWorkbook.FullName) bu bölüme dosyayı eklemeniz kalıyor.

.Attachments.Add [COLOR="Red"]Klasor & "\" & dosyaadı[/COLOR]

 

[halit3]

Bu dosyadaki kodlarda farklı userformun resmini hem sayfaya hemde dosyanın yanına jpg resmi olarak kayıt yapıyor.

 

[glinthalas]

Halit bey , denedim hatalar veriyor, kendim çözmeye çalışıyorum , yapamazsam tekrar döneceğim. Şimdiden çok teşekkür ederim.

Selamlar