E-Mail Signatur Darstellungsprobleme

  • VBScript

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    E-Mail Signatur Darstellungsprobleme

    Hallo miteinender,

    ich kenne mich ein wenig mit VBA aus und habe nun zwei unterschiedliche Versionen in .vbs um eine E-Mail Signatur mit Daten aus dem AD zu füllen.

    Bei der ersten Version ist leider viel zu viel Platzt zwischen den Tabellenzellen un dich hab keine Ahnung, wie ich die Höhe der Zellen, oder den Zeilenabstand reduzieren kann.

    Version 1:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. On Error Resume Next
    2. Set objWord = CreateObject("Word.Application")
    3. objWord.Visible = False
    4. Set objDoc = objWord.Documents.Add()
    5. Set objSelection = objWord.Selection
    6. Set objEmailOptions = objWord.EmailOptions
    7. Set objSignatureObject = objEmailOptions.EmailSignature
    8. Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
    10. Set objRange = objDoc.Range()
    11. objDoc.Tables.Add objRange,3,3
    12. Set objTable = objDoc.Tables(1)
    14. objTable.Columns(1).Width = 200
    15. objTable.Columns(2).Width = 10
    16. objTable.Columns(3).Width = 200
    18. ' Logo über Pfad einfügen (kann auch über eine Variable definiert werden)
    19. objTable.Cell(1, 1).Range.InlineShapes.AddPicture("C:\Logo\Logo.jpg")
    20. ' Text "Hallo A1 in `Feld A1`- kann irgendein Text sein und Daten können z.B. aus dem AD gezogen werden)
    22. objTable.Cell(2, 1).Range.Font.Name = "Arial"
    23. objTable.Cell(2, 1).Range.Font.Size = 11
    24. objTable.Cell(2, 1).Range.Font.Bold = True
    25. objTable.Cell(2, 1).Range.Font.Color = RGB(31, 73, 125)
    26. objTable.Cell(2, 1).Range.Text = "Hallo A1"
    27. ' Text "Hallo A3 in `Feld C3`- kann irgendein Text sein und Daten können z.B. aus dem AD gezogen werden)
    29. objTable.Cell(2, 3).Range.Font.Name = "Arial"
    30. objTable.Cell(2, 3).Range.Font.Size = 11
    31. objTable.Cell(2, 3).Range.Font.Bold = False
    32. objTable.Cell(2, 3).Range.Font.Color = RGB(31, 73, 125)
    33. objTable.Cell(2, 3).Range.Text = "Hallo C3"
    34. ' Text "Hallo A3 in `Feld A3`- kann irgendein Text sein und Daten können z.B. aus dem AD gezogen werden)
    36. objTable.Cell(3, 1).Range.Font.Name = "Arial"
    37. objTable.Cell(3, 1).Range.Font.Size = 11
    38. objTable.Cell(3, 1).Range.Font.Bold = True
    39. objTable.Cell(3, 1).Range.Font.Color = RGB(31, 73, 125)
    40. objTable.Cell(3, 1).Range.Text = "Hallo A3"
    41. ' Text "Hallo A3 in `Feld C3`- kann irgendein Text sein und Daten können z.B. aus dem AD gezogen werden + eine zweite Zeile mit zu viel Zeilenabstand)
    43. objTable.Cell(3, 3).Range.Font.Name = "Arial"
    44. objTable.Cell(3, 3).Range.Font.Size = 11
    45. objTable.Cell(3, 3).Range.Font.Bold = False
    46. objTable.Cell(3, 3).Range.Font.Color = RGB(31, 73, 125)
    47. objTable.Cell(3, 3).Range.Text = "Hallo C3" & chr(13) & "neue Zeile und der Zeilenabstand könnte als temporäre Lösung geringer sein"
    49. Set objSelection = objDoc.Range()
    50. objSignatureEntries.Add "MySignature", objSelection
    51. objSignatureObject.NewMessageSignature = "MySignature"
    52. objSignatureObject.ReplyMessageSignature = "MySignature"
    54. objDoc.Saved = True
    55. objWord.Quit



    Bei der zweiten Version sind die Zeilenabstände etc. perfekt, aber das Logo (.jpg) Datei wird nur als Verknüpfung eingefügt -> sprich der Empfänger der E-Mail bekommt das Logo nicht mit in der Mail:

    Version 2:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Set oWSH = CreateObject("WScript.Shell")
    2. fsDateiPfad = oWSH.ExpandEnvironmentStrings("%APPDATA%\")
    3. fsDateiPfad = fsDateiPfad & "Microsoft"
    4. folder = fsDateiPfad
    5. Set fso = CreateObject("Scripting.FileSystemObject")
    7. If fso.FolderExists(folder) Then 'Office installed
    8. 'msgbox("office installed")
    9. Set objSysInfo = CreateObject("ADSystemInfo")
    10. strUser = objSysInfo.UserName
    11. Set objUser = GetObject("LDAP://" & strUser)
    12. strMail = objUser.mail
    13. if strMail <> "" then 'Mailadr set
    14. 'Check Signature Dir exist or make it
    15. folder = fsDateiPfad & "\Signatures\"
    16. If fso.FolderExists(folder) Then 'Signatures Dir exist
    17. fsDateiPfad = ""
    18. 'msgbox("SigDir exist")
    19. else
    20. fso.CreateFolder(folder)
    21. 'msgbox("SigDir not exist - [" & folder & "]")
    22. end if
    23. 'Get lokal APPDATA
    24. Set oWSH = CreateObject("WScript.Shell")
    25. fsDateiPfad = oWSH.ExpandEnvironmentStrings("%APPDATA%\")
    26. fsDateiPfad = fsDateiPfad & "Microsoft\Signatures\"
    27. 'Get AccDetails
    28. strLogo="V:\Logo\Logo.jpg"
    30. signatur_conet()
    31. end if
    32. end if 'Office installed
    33. function signatur_conet()
    34. Set fsDatei = CreateObject("Scripting.FileSystemObject")
    35. fsDateiName = fsDateiPfad & "Signatur-" & AccName & ".htm"
    36. fsDatei.CreateTextFile fsDateiName
    37. Set fsDatei = fsDatei.getfile(fsDateiName)
    38. Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)
    39. fsinhalt.write "<html>" & vbLf
    40. fsinhalt.write "<head>" & vbLf
    41. fsinhalt.write "</head>" & vbLf
    42. fsinhalt.write "<body>" & vbLf
    43. fsinhalt.write "<img src=" & strLogo & " height='50' />"
    44. fsinhalt.write "<br /><br />" & vbLf
    45. fsinhalt.write "<table border='0' style='FONT-FAMILY:""Arial"",""sans-serif"";font-size:10pt'; cellspacing=0; cellpadding=0; width=500px>" & vbLf
    46. fsinhalt.write " <tr>" & vbLf
    47. fsinhalt.write " <td colspan='3' style='font-size:10pt;font-weight:bold;color:#1F497D'>Hallo A1</td><td>&nbsp</td><td style='font-size:10pt;color:#1F497D'>Hallo C1</td>" & vbLf
    48. fsinhalt.write " </tr>" & vbLf
    50. fsinhalt.write " </tr>" & vbLf
    51. fsinhalt.write " <tr>" & vbLf
    53. fsinhalt.write " <td colspan='3'>&nbsp</td>" & vbLf
    54. fsinhalt.write " </tr>" & vbLf
    55. fsinhalt.write " <tr>" & vbLf
    56. fsinhalt.write " <td style='font-size:10pt;color:#1F497D'>Hallo A3</td><td>&nbsp</td><td style='font-size:10pt;color:#1F497D'>Hallo C3</td>" & vbLf
    57. fsinhalt.write " </tr>" & vbLf
    58. fsinhalt.write "</table>" & vbLf
    59. fsinhalt.write "</body>" & vbLf
    60. fsinhalt.write "</html>"
    61. fsinhalt.Close
    63. 'Generate TXT File
    64. fsDateiName = fsDateiPfad & "Signatur-" & AccName & ".txt"
    65. Set fsDatei = CreateObject("Scripting.FileSystemObject")
    66. fsDatei.CreateTextFile fsDateiName
    67. Set fsDatei = fsDatei.getfile(fsDateiName)
    68. Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)
    69. fsinhalt.write "Mit freundlichen Grüßen / Best regards" & vbLf & vbLf
    70. fsinhalt.write strPreName & " " & strName & " " & strSurname & vbLf
    72. if strTitle <> "" then
    73. fsinhalt.write strTitle & " / " & strDepartment & vbLf & vbLf
    74. else
    75. fsinhalt.write strDepartment & vbLf & vbLf
    76. end if
    78. end function




    Kann mir jemand weiter helfen um eine der beiden Versionen so hinzubekommen, dass entweder in der .doc Variante die Zellenumrandung kleiner ist, oder der Zeilenabstand reduziert wird?

    Oder in der .html Variante das Logo mit integriert wird und nicht als Verknüpfung zu der Datei auf dem Server mitgesendet wird?

    Viele Grüße
    Dressler01

    CodeTags gesetzt und aufgrund des Codeumfangs Spoiler hinzugefügt ~VaporiZed

    Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „Dressler01“ ()

    Hast Du Dir mal den Ordner AppData\Roaming\Microsoft\Signatures\ angeschaut. Da gibt es einen Unterordner, der die Dateien für die Signatur enthält. Du musst für die HTML Version dann den Verweis der Bilddatei auch auf diesen Pfad anpassen.

    Warum nutzt Du in der RTF-Version eine Tabelle statt einfache Absätze.

    Generiere Dir doch einfach in Outlook einen Signatur mit Bild und schaue Dir dann die entsprechenden Dateien im Signatures Ordner an.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook
Telefonspende