אשמח אם מישהו יוכל לעזור, נעזרתי בפקודה מוכנה כדי לשלוח טבלת אקסל במייל. בהכל עובד מצויין חוץ מדבר אחד, יש בטבלה טור עם עיצוב מותנה שבהדבקה ל OUTLOOK יוצא בצבע הלא נכון, למישהו יש רעיון מה אני צריך להוסיף או לשנות? ניסיתי כל מיני רעיונות שמצאתי ברשת אבל אף אחד לא עבד.
הדבקת הטבלה גתמונה לא רלוונטית.
החלק הרלוונטי בפקודה:
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
