VBA ile Mail Gönderme

[Hantor]

İyi Çalışmalar,

Aşağıda tarafınıza göndermiş olduğum kodlar çalışıyor. Fakat istediğim gibi çalışmıyor. benim isteğim excel den aldığı resmi düzgün olarak alarak yeni açılan mail sayfasına düzgün olarak yapıştırmasını istiyorum. Aşağıdaki kod ile yapıştırma işlemi oluyor fakat sütunların boyutu değişiyor. Boyutlarının değişime uğramadan yapıştırmam mümkün müdür.

Sub Mail_ULD()
Application.ScreenUpdating = False
Sheets("Mail").Select

Dim Makro As Outlook.Application
Dim Mail As Outlook.MailItem
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
Dim CopyRange As Range
Set CopyRange = Sheet12.Range("B3:R17")
CopyRange.Copy
With Mail
.To = "XXXXXXXXXX@XXXXXXXXXX.COM" & ";" & "XXXXXXXXXX@XXXXXXXXXX.COM" & ";" & ""
.CC = "" & ";" & "" & ";" & "XXXXXXXXXX@XXXXXXXXXX.COM"
.BCC = ""
.Subject = "STOK BILGISI Hk."
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Dim wordDoc As Word.Document
Set wordDoc = Mail.GetInspector.WordEditor
wordDoc.Range = ""
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Sayin Ilgililer,"
wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Istemis oldugunuz Stok bilgisi Ek' te tarafiniza sunulmaktadir."
wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Bilgilerinize arz ederim."
wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Saygilarimla"

wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range.PasteAndFormat wdFormatOriginalFormatting
On Error GoTo 0

Set wordDoc = Nothing
Set Mail = Nothing
Set Makro = Nothing

Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
Set CopyRange = Sheet15.Range("B3:Y4")
CopyRange.Copy
With Mail
.To = "XXXXXXXXXX@XXXXXXXXXX.COM" & ";" & "XXXXXXXXXX@XXXXXXXXXX.COM" & ";" & ""
.CC = "" & ";" & "" & ";" & "XXXXXXXXXX@XXXXXXXXXX.COM"
.BCC = ""
.Subject = "SOZLESME BILGISI Hk."
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set wordDoc = Mail.GetInspector.WordEditor
wordDoc.Range = ""
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Sayin Ilgililer,"
wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Istemis oldugunuz sözlesme bilgisi Ek' te tarafiniza sunulmaktadir."
wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Bilgilerinize arz ederim."
wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range = " Saygilarimla"

wordDoc.Paragraphs.Add
wordDoc.Paragraphs.Add
wordDoc.Paragraphs(wordDoc.Paragraphs.Count).Range.PasteAndFormat wdFormatOriginalFormatting
On Error GoTo 0

Set wordDoc = Nothing
Set Mail = Nothing
Set Makro = Nothing

Sheets("Mail").Select
Range("B3").Select
End Sub

 

[Hantor]

Oluru yokmudur acaba

 

[Hantor]

Oluru yok mudur acaba

 

[Hantor]

Olmuyormu böyle bir yöntem acaba bir allahın kuluda cevap yazmamış