VBS email signatur

  • Outlook

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    VBS email signatur

    Hallo,

    ich habe ein kleines problem mit meiner E-Mail Signatur und zwar rufe ich diese aus dem AD ab.. alles schön und gut.
    Ich habe zwei Arten... eine mit HTML und Tabellen und eine normale ohne HTML und Tabellen.
    Bei der ohne HTML kann ich Bilder einbinden und diese werden auch überall mit hinversendet, auch auf Smartphones. Da diese aber auf Smartphones nicht schön dargestellt wird wollte ich das mit HTML und Tabellen lösen. Allerdings bekomme ich da die Bilder (Logos) nicht richtig mitverschickt, da sie beim Empfänger dann nicht dagestellt werden.
    Nun will ich entweder in dem Code ohne HTML eine Tabelle haben oder in dem Code mit HTML die Logos vernüpftig.
    Wer kann mir da helfen?? ?( ?( ?( ?(

    Hier einmald er Code ohne HTML:

    Brainfuck-Quellcode

    1. On Error Resume Next
    3. ' Objects
    4. Set objSysInfo = CreateObject("ADSystemInfo")
    5. Set WshShell = CreateObject("WScript.Shell")
    6. Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    7. Set objWord = CreateObject("Word.Application")
    8. Set objFSO = CreateObject("Scripting.FileSystemObject")
    10. ' Signature stuff
    11. strName = objUser.givenName + " " + objUser.sn
    12. strDepart = objUser.Department
    13. strDesc = objUser.Description
    14. strStreet = objUser.StreetAddress
    15. strLocation = objUser.l
    16. strPostCode = objUser.PostalCode
    17. strPhone = objUser.TelephoneNumber
    18. strMobile = objUser.Mobile
    19. strFax = objUser.FacsimileTelephoneNumber
    20. strEmail = objUser.mail
    21. strCompany = objUser.Company
    22. strCompanyWeb2 = "link...."
    23. aQuote = Chr(34)
    24. aNewLine = Chr(11)
    25. strLogo="bild pfad 1"
    26. strLogo1="bild pfad 2"
    28. If strCompany = "Firma" then
    29. strCompanyTitle = "Firma"
    30. strCompanyWeb = "link"
    31. Else
    32. strCompanyTitle = "oder andere Firma"
    33. strCompanyWeb = "anderer Link"
    34. End If
    36. Set objDoc = objWord.Documents.Add()
    37. Set objSelection = objWord.Selection
    38. Set objEmailOptions = objWord.EmailOptions
    39. Set objSignatureObject = objEmailOptions.EmailSignature
    40. Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
    42. objSelection.Font.Name = "Arial"
    43. objSelection.Font.Size = 10
    44. objSelection.TypeText "Mit freundlichen Grüßen" +aNewLine
    45. objSelection.TypeText vbCrLf
    46. objSelection.Font.Bold = True 'Bold
    47. if (strCred) Then objSelection.TypeText strCred & strName Else objSelection.TypeText strName
    48. objSelection.TypeText aNewLine
    49. objSelection.Font.Bold = False 'Bold ende
    50. objSelection.TypeText "(" & strDepart & ")" + aNewLine
    51. objSelection.TypeText "__________________________________________________" + aNewLine
    53. 'Firmanlogo + Anschrift
    54. objDoc.Range.Font.Color =RGB(0,0,0)
    55. objSelection.InlineShapes.AddPicture(strLogo)
    56. objSelection.TypeText aNewLine
    57. objSelection.TypeText strCompanyTitle +aNewLine
    58. objSelection.TypeText strStreet & aNewLine
    59. objSelection.TypeText strPostCode & " " & strLocation
    60. objSelection.TypeText vbCrLf
    61. objSelection.TypeText "Telefon: " & "+49 (0) " & strPhone & " "
    62. objSelection.TypeText "E-Mail: "
    63. objDoc.Hyperlinks.Add objSelection.Range, "Mailto:" & strEmail, , , strEmail +aNewLine
    64. if (strFax) Then objSelection.TypeText "Fax: " & "+49 (0) " & strFax & " "
    65. objSelection.TypeText "Website: "
    66. objDoc.Hyperlinks.Add objSelection.Range, strCompanyWeb, , ,strCompanyWeb +aNewLine
    67. if (strMobile) Then objSelection.TypeText "Mobil: " & strMobile & aNewLine
    69. objSelection.TypeText "Vorstand: ...." +aNewLine
    70. objSelection.TypeText "Aufsichtsrat: ..."
    71. objSelection.TypeText vbCrLf
    72. objSelection.TypeText "Amtsgericht Tostedt: ....." +aNewLine
    73. objSelection.TypeText "Umsatzsteueridentifikationsnummer: ....." +aNewLine
    74. objSelection.TypeText "__________________________________________________"
    75. objSelection.TypeText vbCrLf
    77. 'Senat der Wirtschaft
    79. objSelection.TypeText "............."
    80. objSelection.TypeText vbCrLf
    81. objSelection.InlineShapes.AddPicture(strLogo1)
    82. objSelection.TypeText vbCrLf
    84. objSelection.Font.Underline = True
    85. objSelection.TypeText ".....:"
    86. objSelection.Font.Underline = False
    87. objSelection.TypeText " "
    88. objSelection.Font.Underline = True
    89. objSelection.TypeText"...:" +aNewLine
    90. objSelection.Font.Underline = False
    92. objSelection.TypeText "..."
    93. objSelection.TypeText " "
    94. objSelection.TypeText "..." +aNewLine
    96. objSelection.TypeText "...."
    97. objSelection.TypeText " "
    98. objSelection.TypeText "..." +aNewLine
    100. objSelection.TypeText "..."
    101. objSelection.TypeText " "
    102. objSelection.TypeText "..." +aNewLine
    104. objSelection.TypeText "Telefon: ..."
    105. objSelection.TypeText " "
    106. objSelection.TypeText "Telefon: ...." +aNewLine
    108. objSelection.TypeText "Fax: ...."
    109. objSelection.TypeText " "
    110. objSelection.TypeText "Fax: ..." +aNewLine
    112. objSelection.TypeText vbCrLf
    113. objSelection.Font.Underline = True
    114. objSelection.TypeText "...:" +aNewLine
    115. objSelection.Font.Underline = False
    116. objSelection.TypeText "... ... ..." +aNewLine
    117. objSelection.TypeText "... ..." +aNewLine
    118. objSelection.TypeText "... ..." +aNewLine
    119. objSelection.TypeText "Telefon: ...." +aNewLine
    120. objSelection.TypeText "Fax: ..." +aNewLine
    122. objSelection.TypeText "Website: "
    123. objDoc.Hyperlinks.Add objSelection.Range, strCompanyWeb2, , ,strCompanyWeb2 +aNewLine
    124. objSelection.TypeText "__________________________________________________"
    125. objDoc.Range.Font.Color =RGB(0,0,0)
    126. objSelection.TypeText vbCrLf
    128. 'Rechtliches
    129. objSelection.Font.size = "8" 'Schriftfarbe on
    130. objSelection.Font.Color = RGB(0,0,255) 'Schriftfarbe on
    131. objSelection.TypeText "Diese E-Mail und alle Anhänge enthalten vertrauliche und/oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder" +aNewLine
    132. objSelection.TypeText "die E-Mail irrtümlich erhalten haben, informieren Sie bitte unverzüglich den Absender und vernichten Sie diese E-Mail. Das unerlaubte Kopieren sowie die" +aNewLine
    133. objSelection.TypeText "unbefugte Weitergabe dieser Mail ist nicht gestattet." +aNewLine
    134. objSelection.TypeText "Die CO.NET Verbrauchergenossenschaft eG haftet weder für infolge elektronischer Übertragung entstandene Fehler gleich welcher Art noch für Verlust oder Schaden," +aNewLine
    135. objSelection.TypeText "den eine Person als Folge dieser E-Mail und/oder ihrer Anhänge dadurch erleidet, dass sie an einen anderen als den beabsichtigten Adressaten übermittelt wurde." +aNewLine
    136. objSelection.TypeText "Vielen Dank." +aNewLine
    137. objSelection.Font.Color = 0 'Schriftfarbe off
    139. objSelection.Font.Name = "Webdings" 'Schriftart anders
    140. objSelection.Font.Color = RGB(51,153,0) 'Schriftfarbe on
    141. objSelection.Font.Bold = True
    142. objSelection.TypeText "P "
    143. objSelection.Font.Name = "Arial"
    144. objSelection.TypeText "Im Interesse unserer Umwelt: Bitte prüfen Sie, ob diese E-Mail ausgedruckt werden muss." +aNewLine
    145. objSelection.Font.Color = 0 'Schriftfarbe off
    146. objSelection.Font.Bold = False
    147. objSelection.Font.Color = RGB(0,0,255) 'Schriftfarbe on
    148. objSelection.TypeText +aNewLine
    149. objSelection.TypeText "This email and any attached files may contain confidential and/or privileged informations. If you are not the intended recipient (or have received this email in error)" +aNewLine
    150. objSelection.TypeText "please notify the sender immediately and destroy this email. Any unauthorised copying, disclosure or distribution of the material in this email is strictly forbidden." +aNewLine
    151. objSelection.Font.Color = 0 'Schriftfarbe off
    152. objSelection.Font.Name = "Webdings" 'Schriftart anders
    153. objSelection.Font.Color = RGB(51,153,0) 'Schriftfarbe on
    154. objSelection.Font.Bold = True
    155. objSelection.TypeText "P "
    156. objSelection.Font.Name = "Arial"
    157. objSelection.TypeText "Before you print - think about the environment." +aNewLine
    158. objSelection.Font.Color = 0 'Schriftfarbe off
    159. objSelection.Font.Bold = False
    160. objSelection.TypeText vbCrLf
    162. 'Speichern
    164. Set objSelection = objDoc.Range()
    166. ' full signature
    167. objSignatureEntries.Add "_Signature", objSelection
    168. objSignatureObject.NewMessageSignature = "_Signature"
    170. objDoc.Saved = True
    172. ' reply signature
    173. objSignatureEntries.Add "_Reply_Signature", objSelection
    174. objSignatureObject.ReplyMessageSignature = "_Reply_Signature"
    175. objDoc.Saved = True
    176. ' EOF


    Hier der Code mit HTML:

    HTML-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")
    11. strUser = objSysInfo.UserName
    12. Set objUser = GetObject("LDAP://" & strUser)
    14. strMail = objUser.mail
    16. if strMail <> "" then 'Mailadr set
    17. 'Check Signature Dir exist or make it
    18. folder = fsDateiPfad & "\Signatures\"
    19. If fso.FolderExists(folder) Then 'Signatures Dir exist
    20. fsDateiPfad = ""
    21. 'msgbox("SigDir exist")
    22. else
    23. fso.CreateFolder(folder)
    24. 'msgbox("SigDir not exist - [" & folder & "]")
    25. end if
    27. 'Get lokal APPDATA
    28. Set oWSH = CreateObject("WScript.Shell")
    29. fsDateiPfad = oWSH.ExpandEnvironmentStrings("%APPDATA%\")
    30. fsDateiPfad = fsDateiPfad & "Microsoft\Signatures\"
    32. 'Get AccDetails
    33. AccName = objUser.samAccountName
    34. strName = objUser.givenName
    35. strSurname = objUser.sn
    37. strTitle = objUser.title
    38. strDepartment = objUser.department
    40. strPhone = objUser.telephoneNumber
    41. strMobil = objUser.mobile
    42. strFax= objUser.facsimileTelephoneNumber
    43. strZip = objUser.postalCode
    44. strStreet = objUser.streetAddress
    45. strCity = objUser.l
    46. strHP = "...."
    47. strLogo="bildpfad 1"
    49. strCompany = objUser.Company
    50. 'strNotes = objUser.Info
    51. strdescription = objUser.description
    52. strInitials = objUser.initials
    56. signatur_conet()
    57. end if
    58. end if 'Office installed
    60. function signatur_conet()
    62. Set fsDatei = CreateObject("Scripting.FileSystemObject")
    66. fsDateiName = fsDateiPfad & "Signatur-" & AccName & ".htm"
    68. fsDatei.CreateTextFile fsDateiName
    70. Set fsDatei = fsDatei.getfile(fsDateiName)
    72. Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)
    74. fsinhalt.write "<html>" & vbLf
    75. fsinhalt.write "<!-- .... " & strSurname & " " & strName & " -->" & vbLf
    76. fsinhalt.write "<head>" & vbLf
    77. fsinhalt.write "</head>" & vbLf
    78. fsinhalt.write "<body>" & vbLf
    79. fsinhalt.write "<span style='FONT-FAMILY:""Arial"",""sans-serif"";font-size:10pt'>" & vbLf
    80. fsinhalt.write "Mit freundlichen Grüßen<br />" & vbLf
    81. fsinhalt.write "<br />" & vbLf
    82. if strInitials <> "" then
    83. fsinhalt.write "<b />" & strInitials & " " & strdescription & " " & strPreName & " " & strName & " " & strSurname & "</b><br />" & vbLf
    84. else
    85. fsinhalt.write "<b />" & strdescription & " " & strPreName & " " & strName & " " & strSurname & "</b><br />" & vbLf
    86. end if
    87. if strTitle <> "" then
    88. fsinhalt.write strTitle & " / " & strDepartment & "<br />" & vbLf
    89. else
    90. fsinhalt.write strDepartment & "<br />" & vbLf
    91. end if
    92. fsinhalt.write "__________________________________________________________________<br /><br />" & vbLf
    94. fsinhalt.write "<img src=" & strLogo & " width='101' height='66' />"
    96. fsinhalt.write "<br /><br />" & vbLf
    98. fsinhalt.write "<table border='0' style='FONT-FAMILY:""Arial"",""sans-serif"";font-size:10pt'; cellspacing=0; cellpadding=0>" & vbLf
    99. fsinhalt.write " <tr>" & vbLf
    100. fsinhalt.write " <td colspan='7'>" & strCompany & "</td>" & vbLf
    101. fsinhalt.write " </tr>" & vbLf
    102. fsinhalt.write " <tr>" & vbLf
    103. fsinhalt.write " <td colspan='7'>" & strStreet & "</td>" & vbLf
    104. fsinhalt.write " </tr>" & vbLf
    105. fsinhalt.write " <tr>" & vbLf
    106. fsinhalt.write " <td colspan='7'>" & strZip & " " & strCity & "</td>" & vbLf
    107. fsinhalt.write " </tr>" & vbLf
    108. fsinhalt.write " <tr>" & vbLf
    109. fsinhalt.write " <td colspan='7'>&nbsp</td>" & vbLf
    110. fsinhalt.write " </tr>" & vbLf
    113. if strPhone <> "" then
    114. fsinhalt.write " <tr>" & vbLf
    115. fsinhalt.write " <td>Telefon:</td><td>&nbsp</td><td>+49 (0) " & strPhone & "</td><td width='50'>&nbsp</td><td>E-Mail:</td><td>&nbsp</td><td><a href='mailto:" & strMail & "'style='color: #000000'>" & strMail & "</a></td>" & vbLf
    116. fsinhalt.write " </tr>" & vbLf
    117. end if
    119. if strFax <> "" then
    120. fsinhalt.write " <tr>" & vbLf
    121. fsinhalt.write " <td>Fax:</td><td>&nbsp</td><td>+49 (0) " & strFax & "</td><td width='50'>&nbsp</td><td>Webseite:</td><td>&nbsp</td><td><a href='http://" & strHP & "'style='color: #000000'>" & strHP & "</a></td>" & vbLf
    122. fsinhalt.write " </tr>" & vbLf
    123. end if
    124. if strMobil <> "" then
    125. fsinhalt.write " <tr>" & vbLf
    126. fsinhalt.write " <td>Mobil:</td><td>&nbsp</td><td>+49 (0) " & strMobil & "</td>" & vbLf
    127. fsinhalt.write " </tr>" & vbLf
    128. end if
    129. fsinhalt.write " </tr>" & vbLf
    130. fsinhalt.write "</table>" & vbLf
    131. 'fsinhalt.write "<br />" & vbLf
    132. fsinhalt.write "__________________________________________________________________<br /><br />" & vbLf
    134. 'sdw
    135. fsinhalt.write "................." & vbLf
    138. fsinhalt.write "<br /><br />" & vbLf
    140. fsinhalt.write "<table border='0' style='FONT-FAMILY:""Arial"",""sans-serif"";font-size:10pt'; cellspacing=0; cellpadding=0>" & vbLf
    141. if strPhone <> "" then
    142. fsinhalt.write " <tr>" & vbLf
    143. fsinhalt.write " <td>....:</td><td width='50'>&nbsp</td><td>....:</td>" & vbLf
    144. fsinhalt.write " </tr>" & vbLf
    145. end if
    147. if strFax <> "" then
    148. fsinhalt.write " <tr>" & vbLf
    149. fsinhalt.write " <td>....</td><td width='50'>&nbsp</td><td>....</td>" & vbLf
    150. fsinhalt.write " </tr>" & vbLf
    151. end if
    155. if strPhone <> "" then
    156. fsinhalt.write " <tr>" & vbLf
    157. fsinhalt.write " <td>....</td><td width='50'>&nbsp</td><td>... ...</td>" & vbLf
    158. fsinhalt.write " </tr>" & vbLf
    159. end if
    161. if strFax <> "" then
    162. fsinhalt.write " <tr>" & vbLf
    163. fsinhalt.write " <td>... ...</td><td width='50'>&nbsp</td><td>... ...</td>" & vbLf
    164. fsinhalt.write " </tr>" & vbLf
    165. end if
    167. fsinhalt.write " <tr>" & vbLf
    168. fsinhalt.write " <td></td><td>&nbsp</td><td></td>" & vbLf
    169. fsinhalt.write " </tr>" & vbLf
    171. if strPhone <> "" then
    172. fsinhalt.write " <tr>" & vbLf
    173. fsinhalt.write " <td>Telefon: +49 (0) ....</td><td width='50'>&nbsp</td><td>Telefon: +49 (0) ....</td>" & vbLf
    174. fsinhalt.write " </tr>" & vbLf
    175. end if
    177. if strFax <> "" then
    178. fsinhalt.write " <tr>" & vbLf
    179. fsinhalt.write " <td>Fax:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp +49 (0) ...</td><td width='50'>&nbsp</td><td>Fax:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp +49 (0) 3...</td>" & vbLf
    180. fsinhalt.write " </tr>" & vbLf
    181. end if
    184. fsinhalt.write " </tr>" & vbLf
    185. fsinhalt.write "</table>" & vbLf
    186. 'fsinhalt.write "<br />" & vbLf
    187. fsinhalt.write "__________________________________________________________________<br />" & vbLf
    189. fsinhalt.write "<br />" & vbLf
    190. fsinhalt.write "<span style='font-size:7.5pt;color:#ee6c14'>Diese E-Mail und alle Anhänge enthalten vertrauliche und/oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder die E-Mail irrtümlich erhalten haben, informieren Sie bitte unverzüglich den Absender und vernichten Sie diese E-Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser Mail ist nicht gestattet. Die CO.NET Verbrauchergenossenschaft eG haftet weder für infolge elektronischer Übertragung entstandene Fehler gleich welcher Art noch für Verlust oder Schaden, den eine Person als Folge dieser E-Mail und/oder ihrer Anhänge dadurch erleidet, dass sie an einen anderen als den beabsichtigten Adressaten übermittelt wurde. Vielen Dank.</span>" & vbLf
    191. fsinhalt.write "<br />" & vbLf
    193. fsinhalt.write "<SPAN style='FONT-FAMILY:""Webdings"";color:#009900;font-size:13pt'>P </SPAN><span style='FONT-FAMILY:""Arial"";color:#009900;font-size:7.5pt'><b>Im Interesse unserer Umwelt: Bitte prüfen Sie, ob diese E-Mail ausgedruckt werden muss.</b></span>" & vbLf
    195. fsinhalt.write "<br />" & vbLf
    196. fsinhalt.write "<span style='font-size:7.5pt;color:#ee6c14'>This email and any attached files may contain confidential and/or privileged informations. If you are not the intended recipient (or have received this email in error) please notify the sender immediately and destroy this email. Any unauthorised copying, disclosure or distribution of the material in this email is strictly forbidden.</span>" & vbLf
    197. fsinhalt.write "<br />" & vbLf
    199. fsinhalt.write "<SPAN style='FONT-FAMILY:""Webdings"";color:#009900;font-size:13pt'>P </SPAN><span style='FONT-FAMILY:""Arial"";color:#009900;font-size:7.5pt'><b>Before you print - think about the environment</b></span>" & vbLf
    201. fsinhalt.write "</span>" & vbLf
    202. fsinhalt.write "</body>" & vbLf
    203. fsinhalt.write "</html>"
    204. fsinhalt.Close
    206. 'Genarate TXT File
    207. fsDateiName = fsDateiPfad & "Signatur-" & AccName & ".txt"
    208. Set fsDatei = CreateObject("Scripting.FileSystemObject")
    209. fsDatei.CreateTextFile fsDateiName
    210. Set fsDatei = fsDatei.getfile(fsDateiName)
    211. Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)
    213. fsinhalt.write "Mit freundlichen Grüßen / Best regards" & vbLf & vbLf
    214. fsinhalt.write strPreName & " " & strName & " " & strSurname & vbLf
    217. if strTitle <> "" then
    218. fsinhalt.write strTitle & " / " & strDepartment & vbLf & vbLf
    219. else
    220. fsinhalt.write strDepartment & vbLf & vbLf
    221. end if
    224. fsinhalt.write "______________________________" & vbLf & vbLf
    225. if strPhone <> "" then
    226. fsinhalt.write "Tel: " & strPhone & vbLf
    227. end if
    228. if strMobil <> "" then
    229. fsinhalt.write "Mobil: " & strMobil & vbLf
    230. end if
    231. if strFax <> "" then
    232. fsinhalt.write "Fax: " & strFax & vbLf
    233. end if
    234. fsinhalt.write "E-Mail: " & strMail & vbLf
    235. fsinhalt.write "Web: " & strHP & vbLf & vbLf
    236. fsinhalt.write "...." & vbLf
    237. fsinhalt.write strStreet & vbLf
    238. fsinhalt.write strZip & " " & strCity & vbLf & vbLf
    239. fsinhalt.write "USt-IdNr. / Tax ID No.: ..." & vbLf
    240. fsinhalt.write "..." & vbLf
    241. fsinhalt.write "..." & vbLf
    242. fsinhalt.write " " & vbLf
    243. fsinhalt.write "Rechtlicher Hinweis: Diese E-Mail enthält vertrauliche und / oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten diese E-Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser E-Mail ist nicht gestattet.<br>Legal notice: This e-mail contains confidential and / or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and destroy this e-mail. Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden." & vbLf & vbLf
    244. fsinhalt.Close
    245. end function


    und nun bitte bitte bitte eine lösung... ich verzweifle dran :S ?(

    cybershot schrieb:

    Allerdings bekomme ich da die Bilder (Logos) nicht richtig mitverschickt, da sie beim Empfänger dann nicht dagestellt werden.


    rührt das Problem daher das sie nicht angezeigt werden?
    Ich kenne es z.B. so das bei den iPhones/Pad die Bilder (logos) als Anhang beigefügt sind.
    Ist wohl dann Einstellungssache..

    Oder meinst du was anderes?
    Option Strict On!

    ja ich meine was anderes... also bei dem Code mit HTML werden die bilder gar nicht angezeigt, und bei dem ohne HTML funktioniert es einwandfrei... und ich hätte gern bei dem ohne HTML eine Tabelle drin, damit das überall vernüpftig dagestellt wird... ODER bei dem mit HTML eine andere methode um die Bilder einzubinden.

    Du kannst ein Bild mit ImageTag Base64 kodiert verschicken. Such mal nach VBS base64 und html email embed image
    Solltest bei Google dazu alles finden

    //EDIT

    Könnte auch sein das es mit CDO Message sogar noch einfacher geht.

    Visual Basic-Quellcode

    1. ​
    2. Set mail = CreateObject("CDO.Message")
    3. 'konstruier hier das mail
    4. Set img = mail.AddRelatedBodyPart(pathToImage, "image.jpg", 1)
    5. img.Fields.Item("urn:schemas:mailheader:Content-ID") = "<image.jpg>"
    6. img.Fields.Update
    7. mail.Send


    LG
    Das ist meine Signatur und sie wird wunderbar sein!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mono“ ()

Facebook
Telefonspende