Witam forumowiczów.
Na wstępie chciałem zaznaczyć że jestem mocno początkujący w dziedzinie VBA. Chciałem ułatwić sobie pracę, a mianowicie stworzyć formułę która po kliknięciu w przycisk automatycznie wygeneruje maila. Jako temat pobiera dane z dwóch komórek i to działa prawidłowo. Treść w tym momencie także pobiera prawidłowo jednakże w excelu "załącznik 1" jest sporo treści i niestety VBA wkleja treść mocno rozrzuconą "załącznik 2 (nieczytelną). Bardzo proszę o podpowiedź. Czy jest szansa aby wklejało się to tak jak w załączniku "3"?
Private Sub Mail()
Dim objol As New Outlook.Application
Dim objmail As MailItem
Dim varBody As String
Dim objdata As DataObject
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
Set objdata = New DataObject
Worksheets("plan linia").Range("A1:P66").Copy
objdata.GetFromClipboard
varBody = objdata.GetText
Dim temat As String
Worksheets("wydruk linia").Range("A1:b1").Copy
objdata.GetFromClipboard
temat = objdata.GetText
Dim silowniki As String
Worksheets("wydruk linia").Range("A1:H30").Copy
objdata.GetFromClipboard
silowniki = objdata.GetText
With objmail
.To = "mojmail@mail.com"
.Subject = temat
.Body = silowniki & varBody
.NoAging = True
.Display
End With
Set objmail = Nothing
Set objol = Nothing
End Sub
Z góry dziękuję za wszelką próbę pomocy.