(Tcl) Add Base64 Image to HTML Email

Demonstrates how to add an image "file" where the binary data for the image is in base64 string form.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Note: This example requires Chilkat v9.5.0.65 or greater.

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# The mailman object is used for sending and receiving email.
set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "outlook.office365.com"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

# Set the SMTP login/password
CkMailMan_put_SmtpUsername $mailman "OFFICE365-SMTP-LOGIN"
CkMailMan_put_SmtpPassword $mailman "OFFICE365-SMTP-PASSWORD"

# Create a new email object
set email [new_CkEmail]

CkEmail_put_Subject $email "Testing for Chilkat API..."
CkEmail_put_Body $email "Testing for Chilkat API..."
CkEmail_put_From $email "Chilkat Support <my-office365-user@mydomain.com>"
CkEmail_AddTo $email "Chilkat Support" "support@chilkatsoft.com"

# Load Base64 image data into a StringBuilder.
set sb [new_CkStringBuilder]

set bCrlf 1
CkStringBuilder_AppendLine $sb "/9j/4AAQSkZJRgABAgEASABIAAD/7Q18UGhvdG9zaG9wIDMuMAA4QklNA+0AAAAAABAASAAAAAEA" $bCrlf
CkStringBuilder_AppendLine $sb "AQBIAAAAAQABOEJJTQPzAAAAAAAIAAAAAAAAAAE4QklNBAoAAAAAAAEAADhCSU0nEAAAAAAACgAB" $bCrlf
CkStringBuilder_AppendLine $sb "AAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmAAEAoZmaAAYAAAAAAAEA" $bCrlf
CkStringBuilder_AppendLine $sb "MgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklNBBQAAAAAAAQAAAABOEJJTQQM" $bCrlf
CkStringBuilder_AppendLine $sb "AAAAAAyTAAAAAQAAAIAAAACAAAABgAAAwAAAAAx3ABgAAf/Y/+AAEEpGSUYAAQIBAEgASAAA//4A" $bCrlf
CkStringBuilder_AppendLine $sb "J0ZpbGUgd3JpdHRlbiBieSBBZG9iZSBQaG90b3Nob3CoIDQuMAD/7gAOQWRvYmUAZIAAAAAB/9sA" $bCrlf
CkStringBuilder_AppendLine $sb "hAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwM" $bCrlf
CkStringBuilder_AppendLine $sb "DAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwM" $bCrlf
CkStringBuilder_AppendLine $sb "DAwMDAwMDAwMDAwMDAwMDAz/wAARCACAAIADASIAAhEBAxEB/90ABAAI/8QBPwAAAQUBAQEBAQEA" $bCrlf
CkStringBuilder_AppendLine $sb "AAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIF" $bCrlf
CkStringBuilder_AppendLine $sb "BwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKD" $bCrlf
CkStringBuilder_AppendLine $sb "JkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eH" $bCrlf
CkStringBuilder_AppendLine $sb "l6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFy" $bCrlf
CkStringBuilder_AppendLine $sb "gpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVW" $bCrlf
CkStringBuilder_AppendLine $sb "ZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwD1VJJJJSkkkklKSSSSUpJJMSACTwEl" $bCrlf
CkStringBuilder_AppendLine $sb "KJA5MJAg8arnuqdbta4+hJaCQ0AgTHfe8tY3/OUuh9bsybfRu0d2Ez/0x7Xf2FWhzuGeY4Ym5DTw" $bCrlf
CkStringBuilder_AppendLine $sb "sM8uWyDH7h27dXoEkklZYFJJJJKUkkkkp//Q9VSSSSUpJJJJSkkkklKVPqt5pxHR9J/tbHmriw/r" $bCrlf
CkStringBuilder_AppendLine $sb "Dk/QpaYI9x+P5qh5nKMWHJP92Jrz6MuCHHkiPG3l+oZTq2uL7HUkHYwCptnOm24n6KX1eut/aoBe" $bCrlf
CkStringBuilder_AppendLine $sb "XxtklpbyN3tb9Db/AFULMIcNG2XO3S9oY6IHtJ9R7n1+p7vzq0X6sML+pudtexu/2tsMuho2rE+H" $bCrlf
CkStringBuilder_AppendLine $sb "C8sD1uyaH/o7rZ6GDJ5PobfohOmHATroXEUkkkkpSSSSSn//0fVCsLq/XjiZLcZhDXuMCSAfj7y1" $bCrlf
CkStringBuilder_AppendLine $sb "bq5D64dLvLvtmO3c5oOkSdR+bq3a5Qc17vtH2jwy7s/KjGcoGTY925T1zKkS9rpbvhwj2n6Lv7Sv" $bCrlf
CkStringBuilder_AppendLine $sb "4/XGED127Afzxq371weL1S5zrWhj3MrAFr3CXNaxrf0TI2saz1HfSWvh5rb9rK3erLQHMA9rCfe2" $bCrlf
CkStringBuilder_AppendLine $sb "v+Vbt+msSPxHnMB/WEZIj5rHqr+9H/um/k5PGRtXjF7aq6q1u6twcD4Ii5inJvx9a7SNfonVv9VX" $bCrlf
CkStringBuilder_AppendLine $sb "cfrpiL2THLma/gtPl/inK5q9fBL92fpaM+VmPl9Q/F1ci0U0vsPDRK5fLyK773vtkh57dgPo8q91" $bCrlf
CkStringBuilder_AppendLine $sb "XrNVtPpUgw76RIgx5LA9V9hcGAuOob8fzdPcqfxfmY5IjDjleolMxOn9UW2uU5cxBlIEE/k0utua" $bCrlf
CkStringBuilder_AppendLine $sb "3I9+zbUyGNb7HTz7y0v9Rn9lXvqcA/KDh3kmPM/Bv0formus32G5zGEEuJ95c50iezrfc3/MXR/U" $bCrlf
CkStringBuilder_AppendLine $sb "UPrewXRLgdseEo/DsfDLFZ1/sZ+ZFcvPfSnv0kkltOMpJJJJSkkkklP/0vVUO6llzCx4kFESSU8X" $bCrlf
CkStringBuilder_AppendLine $sb "136py512NInnZoY52rmrKMzBtLLA5nIN7Xlpj2hrH7o2+xm32r1d7GvEOEgrE6z9XcfMrc5jQHdx" $bCrlf
CkStringBuilder_AppendLine $sb "2Kp8xycZgmIqXb9FvctzpiRHJrHa+oeTxeqtftpvHpMaJNz/AHHafosayvd/J/tq4CHNL2n2nVjj" $bCrlf
CkStringBuilder_AppendLine $sb "I9vDbPd9Dcuc6xjZvTb4IOpAaXRtEHdt2EbHf2kbp3WXwK8j3DvHgJj2AfvO/wAG1lCxc3JmIJAo" $bCrlf
CkStringBuilder_AppendLine $sb "jeLpcIIEomwfsdi/JsgEHQATI1IHzSos3te4MdZtG4tYDr3hw9yrXX45x22eo173uLRWPpCAJds/" $bCrlf
CkStringBuilder_AppendLine $sb "d/roTMvJraTjv9PcC1xAB077tzVAMZI2rXrouoGB4Rr9jWLK78mCC93mZgRH8natrArOPXW5jxWG" $bCrlf
CkStringBuilder_AppendLine $sb "mWieD+c7+0szExwLw+ZeQNw8PLn/AKpaFtwrYxrwQXOIZIEODf3fpJ+TJMSj7ZIMdkTAPpNa7vQ0" $bCrlf
CkStringBuilder_AppendLine $sb "9Zy3e1r2PA/Ogop6vmt59P46hczj9VxWOIdc2pokS4gcCZhhf/I/tqX7axrAG1WG2xztuxrSZb++" $bCrlf
CkStringBuilder_AppendLine $sb "0/2fannn/iIOktO/A1DyuO/lFPQP6vknT1mM54CA7rFokuySI8uQBJhczd9YGOgVVOLmtLnkkREt" $bCrlf
CkStringBuilder_AppendLine $sb "52B3s2uQLer5GYHMqqZU120AjVzSwS57f5FzvZtTvf8AiEj6spiPDgDJHlYV8o/B7PD68/ewWPD2" $bCrlf
CkStringBuilder_AppendLine $sb "P4n2nXwat6qwW1h7eHCVwXQun5uVktssc5wB1n6I13RW36LV3WLWaqGsPYLb5L3/AGv154pXodjw" $bCrlf
CkStringBuilder_AppendLine $sb "+Lnc3HHHJWP60//T9VSSSSUpJJJJTgfWjp1F+N6jmAmYOnK4h/TGh72tgGSABIAE/wDSXc/WHNZs" $bCrlf
CkStringBuilder_AppendLine $sb "9Bp+iZcQJ17NH8pcwGF1zng7Q7gGJ/L/ANBYfxPMBnqB1EfV/edjkOKOL1bbhzh030w4xu2e48wJ" $bCrlf
CkStringBuilder_AppendLine $sb "/O/8yQ22lr3V7y1oBHpiCD9E7t+r/wAz6CXU+qOYLK8Z+3e3ZZug6D3Q3/yay8LPd9oHqDdBH0oM" $bCrlf
CkStringBuilder_AppendLine $sb "/wBoqHHjySgZy7aNq7oV5Olffk4k+i80u2ncQNYP0v3lj35ORkWbrHl7hI3ET/J/zdrVu5TmZlTL" $bCrlf
CkStringBuilder_AppendLine $sb "9jKKwzZIfJd+dudvj81Zd2CxoNlT5AE7VJglAfMAJ7fyLLHhIsj1bIcejIyDsbuId9LUCCPzv+i1" $bCrlf
CkStringBuilder_AppendLine $sb "amF0q/6ALnE6ECXeP9lav1Y+rzspoc46GC93czrtXZYPQMPGaPYC7uSruPlJZBczwwOwju0OY5+O" $bCrlf
CkStringBuilder_AppendLine $sb "MmGMXIdS8ng/VXIs19PZuOrnan/N+it3B+qdVcG47o1jgfcuhZVWwQ1oCmrePl8UPliL7nUudk5r" $bCrlf
CkStringBuilder_AppendLine $sb "Nk3ka7DRDj4tOO0NraAjJJKZgf/U9VSSSSUpUep9QGLUQ0j1HDTyH7ysZeSzGpdY7twPErk+sZ7r" $bCrlf
CkStringBuilder_AppendLine $sb "XEl3ueYFY5AiW/yf6yp89zYwYzR/WS0hH/uv7sWzyuD3JgkegbtbMyCbHOfOwH3WHVuv5ztqw+qd" $bCrlf
CkStringBuilder_AppendLine $sb "QaJqoeLNdXsJESNGsn876W+x6XUuqEOfjU2tdXYBudGojmuHbttjbP8ArarYvTH5Lm2aw4mAPzvu" $bCrlf
CkStringBuilder_AppendLine $sb "WLgwyMuOdylI2B1lI9ZOvQiLPpjFzhXbaToXAz7RMD86ByojHcy4BzS0ke3dp/mrvelfU/cxrrQG" $bCrlf
CkStringBuilder_AppendLine $sb "DwHP+cm659UmV0i6rU16ydSP/MVqHl8ogZabfL1YYc9hOQQ6X8zzuDS9+K4NDhZHt2l4G7R30Wex" $bCrlf
CkStringBuilder_AppendLine $sb "u2trv9J/pE7Mewyx7RLjqXGfJ/u/R/nfvI7AcctayQ0aEbiw6iHe+fzm+z/CIx2mH7RUzgAkuJJ+" $bCrlf
CkStringBuilder_AppendLine $sb "lte8O3/yvYsqWQ2a67NiRPFpsdXqvqltGK5o0IK6Fct9V8lovfU2QHAGDprx2XUroeVnx4Mcu8Q4" $bCrlf
CkStringBuilder_AppendLine $sb "fMxMc0we9/apJJJTMKkkkklP/9X1VJJJJTg/WDL9N4b2rbuDfFx9rWrj+pZz3l9TGA2Wa+0maxxZ" $bCrlf
CkStringBuilder_AppendLine $sb "Xc2N2y5i7Dr+BkXO9SkTMdgdRx9JYVH1bzL8h1j27C7RzjyR8Fj81yebLzcp8NxoCBJ9IdTlc+DH" $bCrlf
CkStringBuilder_AppendLine $sb "hHEfV2cvpnR/tFrRVSGv0BP0tp4+m73dv5tdn0foFWM0W3DdaYklWel9GowWCBL+5PK0gABAWjg5" $bCrlf
CkStringBuilder_AppendLine $sb "aGId59ZHUtTmeanlJANQ6RUAAIGgUbqm21mtwkOEKaSnaz599YemvwLXFodssPLfDt3/AHlm13Wv" $bCrlf
CkStringBuilder_AppendLine $sb "q2uyQKqBpU5xBl30m1j8937y77r/AE1mZiOO2XtEhcDl4hqyTU6sNbWR+l+iAJO83aP3/urG5/lh" $bCrlf
CkStringBuilder_AppendLine $sb "CfEBUJG77Sdrks/u4xE6zi63Qsl1WWx5na5x2vmQ4E7XO3fn+9q7ml4fU1w7heZ4mQWXs2WizHrP" $bCrlf
CkStringBuilder_AppendLine $sb "pVFkBu4fpHbW/S/tr0Hot/r4NbjyBCs/DJ/qjA/ok1/dk1PiOOpif72jfSSSWg0FJJJJKf/W9VSS" $bCrlf
CkStringBuilder_AppendLine $sb "SSUsQDykABwE6SSlJJJJKUkkkkpYgEEHgrl/rR0IZDTdW2e5A8V1KhZUy1pa8SCmZMcckTGWxZMW" $bCrlf
CkStringBuilder_AppendLine $sb "WWOYnHcPllOPkDN3GrYWwJa0BsTxXt9jPo+5egfVxj24DdwgnX70x+ruGbfUAgTO3stLHoZRWK2C" $bCrlf
CkStringBuilder_AppendLine $sb "AFDy3LeyZG7vQf3Wfmub94RFVSVJJJWWopJJJJT/AP/ZADhCSU0EBgAAAAAABwABAQEAAQEA//4A" $bCrlf
CkStringBuilder_AppendLine $sb "J0ZpbGUgd3JpdHRlbiBieSBBZG9iZSBQaG90b3Nob3CoIDQuMAD/7gAhQWRvYmUAZIAAAAABAwAQ" $bCrlf
CkStringBuilder_AppendLine $sb "AwIDBgAAAAAAAAAAAAAAAP/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBEMDAwMDAwR" $bCrlf
CkStringBuilder_AppendLine $sb "DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg4ODhQRDAwMDAwR" $bCrlf
CkStringBuilder_AppendLine $sb "EQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8IAEQgAeAB4AwEiAAIRAQMRAf/E" $bCrlf
CkStringBuilder_AppendLine $sb "AMkAAQACAgMBAAAAAAAAAAAAAAAFBgQHAQMIAgEBAAMBAQEAAAAAAAAAAAAAAAMEBQIBBhAAAgIB" $bCrlf
CkStringBuilder_AppendLine $sb "BAICAgIDAAAAAAAAAgMBBAUAIBEGEBITFDAhMSJBIxURAAIBAwEEBwMJBQkAAAAAAAECEQASAyEx" $bCrlf
CkStringBuilder_AppendLine $sb "IjITIEFRQlJiBGFyIxAwcYGRoZJDY8GCotIz8LGywuJTc4MUEgABAwEGAwQIBwEAAAAAAAABABEC" $bCrlf
CkStringBuilder_AppendLine $sb "IRAgMVEiA0FxEmEyQmKBkaFScpLS4sHRgrITIzME/9oADAMBAQIRAxEAAADaoAABG89SPNDu0Mvc" $bCrlf
CkStringBuilder_AppendLine $sb "LEAAA4OXHIBxTbXRsu/BbL1ltLvvOGjmgAcUW91SvZw5bXsziaWwMmk996jI1tHZ1/B2zqDa+xUk" $bCrlf
CkStringBuilder_AppendLine $sb "Xxxez+xjffnvcPeXHIgKJtrCr2tWy8Ri42xLdPSikz5CDj/OLz8U9zxacSJuFyCzu1u430AYPPVe" $bCrlf
CkStringBuilder_AppendLine $sb "rudAfO73XkV7MsSfPxLSUjJs8796eDj9/KWEADppktR8XW68KQv8slOitxVSxXqcjGdmRobU+sHO" $bCrlf
CkStringBuilder_AppendLine $sb "+k+eB4ABTojYytaj5Is1XX2DWkZsjWePuX6yU25aeUEsAB5VHqp5VHqp5VHqp5VHqmN80POvTub5" $bCrlf
CkStringBuilder_AppendLine $sb "VPPVTyq989VPKo//2gAIAQIAAQUA8sMVhVtBYHdl3QKsYPA+bajYuH3K0ozKiG02LVmiQRrnXMeX" $bCrlf
CkStringBuilder_AppendLine $sb "1gbFirEEK/WfrOOYqvjVTGlB+DIQFrCtPJECtBSZLQsNmReTW1KnMWqv+pRSDY/ez6Sfk8XK0ide" $bCrlf
CkStringBuilder_AppendLine $sb "ZlO4vXiOOPH/2gAIAQMAAQUA8gEmT65Jndjw/tkpj1802ADG1lnB0C0mv8a8iJa4nUgUR4rXDVIT" $bCrlf
CkStringBuilder_AppendLine $sb "BRP7k4idQnT3oWP+dCMkSBlSogplzvRbbTmT5oV+BtWxVqpeOWGv2GY4nzF5ormZmdUrEMXbiIfu" $bCrlf
CkStringBuilder_AppendLine $sb "D25nnnx//9oACAEBAAEFAPwew8/lzGRmquM1cVaqPixX/J2C2bLVpwm/r0zON3SQxqCGdl+xFepa" $bCrlf
CkStringBuilder_AppendLine $sb "hhHJE+zhQ9Mftn+M1m3ryNbJTqpn2jFXJVLUa7HdESvXAmnUeDb+PH1qbu29c+4K2uptoZdJS2zE" $bCrlf
CkStringBuilder_AppendLine $sb "aTnbYauWHWGZb1+thKRBaxOQrvqQ1c6J6R0WSojKrVdvmYgozXV614L+It4tlHLwBG4SA/6MyloT" $bCrlf
CkStringBuilder_AppendLine $sb "jFLGFpsLnUur8E8PR+TUoK2fg20mE2t5yOMr3k9j62yhcrvuVYZZc94mEQ7M0q6f++2dB2DJNM/t" $bCrlf
CkStringBuilder_AppendLine $sb "WWU8JZeeD6n8JgEAOzt0gxykhI5HIUxmnCLCbddxaqVSe/E9SsOCn1KmnSKNZEbcnkBqKuuhx5bK" $bCrlf
CkStringBuilder_AppendLine $sb "cDY+R441hg2wTId1iks8ksBAN1qyusnJXnut3cpMxXxdmyaejvagMW6nYH4nBiiivbWUEG7sF2Pm" $bCrlf
CkStringBuilder_AppendLine $sb "yVkDLGYQ3vwvXU0xgRiO2YaShdo1tSUrZh7EWKG7stOx8+O6zcsHisNXoK8OUDl9hxcY+4E2Vq6d" $bCrlf
CkStringBuilder_AppendLine $sb "chtbcSwPQgA7ewYqL1W/UOq3o4lE/k/nV/A07hY7GIoBs//aAAgBAgIGPwC0zkWjEOSjKIIYsxvx" $bCrlf
CkStringBuilder_AppendLine $sb "2+O4ajyxUuGFxoSMSK6Sy0zluRGMZ6/uX9sTtns1xQnXpDCHKP1KcImoazG3KWf5qhAmMYoSNSMu" $bCrlf
CkStringBuilder_AppendLine $sb "78yMx1QyL9Cae9L55yQm8gxfr7ptMpFoxDklSlAMCafCEGNRVR2zTqyWmIfPxeu4f+aNIQ/0LPqy" $bCrlf
CkStringBuilder_AppendLine $sb "/SnGmHveOf2onb7w9qhL3SD6PFdluEEmRcg923qA0TrnX3fKoE49Iv6mbtVLf//aAAgBAwIGPwC0" $bCrlf
CkStringBuilder_AppendLine $sb "RGJQ6qvflM4CgW2OdzWKGj5J2enDFPA08yjE48fiW3JqMVgnII9FrHVDL6UJwqCHUXoQMEXdP7UQ" $bCrlf
CkStringBuilder_AppendLine $sb "4nI8B+NojEOShB6o+sFSmA/SHWqR5CgufyEPKWCYatz9vNdO4aTpyU45gog8Lg24sGo/FObBGR1x" $bCrlf
CkStringBuilder_AppendLine $sb "pzC3AMHv6Hfyovj22//aAAgBAQEGPwD5iJE/PDGhjI+w9g62oPduTPWWMnTmT8NbvI+SkyjvCfnc" $bCrlf
CkStringBuilder_AppendLine $sb "jI9gU2AhgG08K/56S3nqA4XEMuRcgjW98X6d3hrFPYOnqYrQg9DJlPUNPppmGPmlZLglgI2tdyRd" $bCrlf
CkStringBuilder_AppendLine $sb "WMh8bKXLtaGZg0cHOyDmbs9+sQ8o6Rp8OQsMaST/AHJbvL3vLV+HMwUNy0dWlWYf1GVX7qV8SM+M" $bCrlf
CkStringBuilder_AppendLine $sb "EjmJt09n8tTiyCfCdvyJ6eZA3iO090VkUlr2FqnCGDa+bDwf9lLiXuC0bJgmfeu4e/WMeUdP/wBW" $bCrlf
CkStringBuilder_AppendLine $sb "ARlTUEATRPrXJzl7QGHw2VmL5N78v8FXernHmyERittUSLt2eHEiMlBoMwCrAQYiZSN+2hjTMTI0" $bCrlf
CkStringBuilder_AppendLine $sb "vE/Y01eWuZiC3b7K0JYnQE3bFEKiLr47t9P+OudkW1wCVY7J9vvW0kOAwEMp0INcQ+2t51H11BzL" $bCrlf
CkStringBuilder_AppendLine $sb "9tfDyK30H5YOoNMyAK5BB7DNOGL2bSZmFHhuVrt2jj9QxJymTlyTzIU/lXMuPH+/ZZQyKYB6/qDW" $bCrlf
CkStringBuilder_AppendLine $sb "KG/x9+pgAdZjs0mkGDM2ZgoBQqVtPZ+pQL7zRNmzZ2W0FCqOxpYnX8NaSIAJMkftosMYcCNpJ2nc" $bCrlf
CkStringBuilder_AppendLine $sb "28VcycVrYzlRJAJVTvKnDv8A6dKMQLZCf6iC1QSLtp38n+3SO/EQJ6BTIonqNO6kBDqZ+nu0oEk7" $bCrlf
CkStringBuilder_AppendLine $sb "bSNDrB2/E/jpvUeoCoGMwBuqBpwLP8PxHoPi4XWbmlTDCWmaAxl3zWExwKrEW7d+/Z4KW0ajaCWK" $bCrlf
CkStringBuilder_AppendLine $sb "yRBlBb37P56YXlAV5cqoAtA3f323LnqFL8kEFpc7FjrNqe5bW6pyGQV00FpuXebzeFaXN6gajULQ" $bCrlf
CkStringBuilder_AppendLine $sb "UbB0SE1ZFknqBmdaus1I6xB++sePFdzQPiHQANO7y7eKnfLnXG4UxeSCSusDxXUHVSVA2ChjgmOI" $bCrlf
CkStringBuilder_AppendLine $sb "n/TxUpCcpBEE6t9OtBso5jDrbWoxoBHShdcraKv7aZ3N4BkxvTPft8VN6dLTrDEGT+pjDqOLz1La" $bCrlf
CkStringBuilder_AppendLine $sb "9Z9hrGCV013xuj32Ph81WubCwDRI0u3wODC7W8FC6CrtIgEDQeb3qCqIAHTbK5gKKAMczJsUkag3" $bCrlf
CkStringBuilder_AppendLine $sb "WKt1cv0gbDkAZMzg9v5ZXuuv9slC4asdAokkezh/HRdse3UAnWmTJIOIm07GOumzeoMTvqbQqqdZ" $bCrlf
CkStringBuilder_AppendLine $sb "3p5jO2Ld4Fx46xZCAhVgCp0MHTZanepWHWOmULEY8IEkam5uGhhV2TI+nqJUl8ZU22RI3H4r1oW3" $bCrlf
CkStringBuilder_AppendLine $sb "ZspOpYkgeZot73coZMouynUk1AGlH1WAQTx6ffWS3Eucxaqm7dYm1SIbxdykXIvLeTxgghjs5hea" $bCrlf
CkStringBuilder_AppendLine $sb "xOPCJ6bsuO9Wa7YT1W+7u+apZWUE65H1eNkXUFVRd1n5WxuJDCKZwrQzAqykgrJjmLHEyrQyJ8R8" $bCrlf
CkStringBuilder_AppendLine $sb "5tW83ZNt7uMQZrMlqb7U2ObgDIP069PeANboA6JKj4iiVNOro3NZiOdLXmfyr7iqL+pTaQoAEDQf" $bCrlf
CkStringBuilder_AppendLine $sb "f5fnr2W1+0aGrcQ+vo//2Q==" $bCrlf

# Decode to a BinData.
set imageData [new_CkBinData]

CkBinData_AppendEncoded $imageData [CkStringBuilder_getAsString $sb] "base64"

set contentIdStarfish [CkEmail_addRelatedBd $email "images/starfish.jpg" $imageData]
if {[CkEmail_get_LastMethodSuccess $email] != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    delete_CkStringBuilder $sb
    delete_CkBinData $imageData
    exit
}

# The src attribute for the image tag is set to the contentIdStarfish:
set sbHtml [new_CkStringBuilder]

CkStringBuilder_Append $sbHtml "<html><body><p>This is an HTML email with an embedded image.</p>"
CkStringBuilder_Append $sbHtml "<p><img src=\"cid:CONTENT_ID_STARFISH\" /></p></body></html>"
set numReplacements [CkStringBuilder_Replace $sbHtml "CONTENT_ID_STARFISH" $contentIdStarfish]

CkEmail_SetHtmlBody $email [CkStringBuilder_getAsString $sbHtml]

set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
} else {
    puts "Mail Sent!"
}


delete_CkMailMan $mailman
delete_CkEmail $email
delete_CkStringBuilder $sb
delete_CkBinData $imageData
delete_CkStringBuilder $sbHtml