PDA

View Full Version : Code to put Date & Time at the bottom of a user Contact form in OL 2010



Witzker
01-01-2020, 12:42 PM
Hi
I have this code to put Date & Time at the bottom of a user Contact form in OL 2010 and put the cursor there.
the code ist started with a button in the form (vba or vbscript?)

Sub Datum_Click()
Item.Body = Item.Body & vbCrLf & Date() & " - " & FormatDateTime(Time,4) & ": "
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.SendKeys("{TAB 11}")
objWSHShell.SendKeys("^{End}")
objWSHShell.SendKeys("^{backspace}")

It would be great if this line would apear in Red in the form.

Can You pls asist?

gmayor
01-01-2020, 10:08 PM
Try the following


Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
With Item
.Display
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.collapse 0
oRng.Text = vbCr & Date & " - " & FormatDateTime(Time, 4) & ": "
oRng.Font.Color = &HFF
oRng.collapse 0
oRng.Select
End With

Witzker
01-03-2020, 02:14 PM
I put this in diese Outlook Sitzung

Public Sub DateRed()

Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
With Item
.Display
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.Collapse 0
oRng.Text = vbCr & Date & " - " & FormatDateTime(Time, 4) & ": "
oRng.Font.Color = &HFF
oRng.Collapse 0
oRng.Select
End With
End Sub

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA8gAAAFhCAYAAACs3oMNAAAgAElEQVR4nO29XY8k x32nmx9BH4GXe8krYhG GAJz4wPYA14QWMAmjcbCCnMWljhYUVztLg2VJJ8dkrLlsOCjnmPtWi2K9BKn2dZwLSeHlHXYaks WBZnDkUw1aSUptUi9UKJ3T9sLLPbufy6yMisiMiLfqqozqup5Bj/0VOVbZGZ1Vz31j4zM3vjJP8sbP/lneeONn9b53ps/JIQQQgghpJGP/96fBiMijef 6Z/ V /88z8TQsj0yUKC/PenZ3L79UK e/o2IYQQQgghdR77D/u9gyATQjYtQUGuJPm1779FCCGEEEKI3H69kKeefkH /b/7k848 shn5St/ Q0EmRCycYkK8htv/FQee xPCCGEEEIIkaeefkEefeSzvTJUjhFkQkgqqQX55VcLQgiZPOfn58EcHBwQQgghhBCy1iDIhJCVZ ixXr16Vl19tF SrV68SQgghhBCytiDIhJCVRkTk3XffHZRKfl9 tVuQDw8PLyRXrlyRb7/6fXn59luEEEIIIWRH4gny8/Lwlfvlcp3fld9/ccSH5Bc/L7/Ruezz8vDY9Udy4zG77Yv8xh//7eTSQMiupBLkmOi2ye/Lr6YhyL/ 678u/ k/PSnHt98ihBBCCCE7lIAgL6T18I9/Vy5/8PNyuJYP0jFBXoU4L7uO1cs7IbsSW5CzLJMsyxqy6z foiD/3Z035euvvU0IIYQQQnYorYK8XlFEkAnZxoQE2Zbh0HMpCvIv/vF/ytfv/JAQQgghhOxQBghy f HH/tduXzlU3Lj1WLelXrRlfnhZ0LL fPNl22s 365/Nin3C7ejz0/8kN6RHAb7fhb f0PWl2wn/mUXP7g7zr7NL4NhOxm/C7WthCH5DhlQT6580NCCCGEELJDGdDFupTYxfW85eNaip3rjptiXcvqM5 ar6N6vpTUqFyPSmgdbe34lNyof66qDYTsZkLXILfJccqC/Dff/REhhBBCCNmhdAzSVQljNc2vCtvTy0GyStG15vWqzIuqbDnPb3zQH0SrRU6DlehQAuuItqMoK8dt FXBCSO9skyB/43tnhBBCCCFkh9LRxdrOMoIcktl5RfqDv t1Y15TBTnajgJBJmSF2aYu1t/8 x8TQgghhJAdynhBDnaxjl9f3LzV0mKeG4/5XbfX1cU61g66WBOyqmzTIF1T/4EmhBBCCCEXmyUEufC6LbeMfu13b7a6WJfzlNchV9c71/czXusgXffL5cc 7wzSZV9zvXwbCNnNbMttnn7xj/9T/vb1d5ZOlmUrWQ8hhBBCCFl/PEFeVexqLCFklxK6BrkrqQryt77/bq/MZrNgsiwTyUSyLGtM67tuQgghhBBycVmPID/zKWv0a0LILmWbBPmV05/0ymw2azxXybFkIrOslGV7Wmg9f/bx U3P3fbff6563L54y/IK6cvyEeufFie Hq/NpV5QT7iDE44dPl5vv4F c2xy/bJc9edARTtY/BnH/cGV3Tmme/fx18Irvcrn/vwyH32j5t3XtZ1PFqOw/D2L9u lnU47bwuf3YRr5GR crnPuy9Pm7LE79jndvf YJ8ZQ3HN/i7TAghZCOyWkGuuzBz/S4huxoRkYODg8FJUZC//cZPe2U2m9U/7cqxLcfVtG /8VPJsiy8rueuy XZLee5L8zul48891P59hu35CNXPixPnvRrUxl3ma987sNy XcO5Cu9l19FOtr93HW57Ex/TZ78nfvlgc 91mM95XMP/E5o/bfmkjv0mIW2NV Xd25Wmt7HoW97x x3j/N2ciAPXLkuX7AeP/ncwHN UTk5kAfs1/vJgTxwpfp9amv/yGPj5DV5Mvi6JIQQknrW1MWaELKruXr16ui8/GpagvydN3/WK7PZrP55fHxcS7Itx9Xz33nzZ5JlWXhdJwfywJXH5aB 7pY8Uj JY9c bB8 qRfm74TXGbMOpZN2zZfk08/dL88ctR1HGLrKZ97ZPZheWD/NXcdR4/L5dnjI/c3sK1gm1aVIcfhos5zZB1Hj8vlhw4kH33OLy75vv26iBzjVR4bP0ePy XZrUmPASGEkOFBkAkhSSUlQf67H/y8V2azWf3z PjYlWTvub/7wc8ly7LIuuYf4v9i/vgvHpfLsxfn016UR648LJ/ iy/KA/PuoQ/ceK1e9oszq9uov8w3fh54XP7/kdnDcvnK4/LFH/xc/u4bi3VfvmK1w1 PM998Wav9i VflEeuhNplr8de3l6P3e7QvtjPvSiPNNpRPe8v0yeh5exz0 d4 MeiZd5exyF2LkPHuK199nnte87n26jX7b72utrzwo2H3S7yoTYGXpufvvF4vYyzvW/YvwNfjJxj7zUUPcZ9jkXHNmO/D9/4ojzw0BflhUGvPUIIIVOnFuQh1wsSQshFZwpBfrV4r1dms1n9s5LhSoj9x68W70mWZdF13brxsD xw47vyavGePDW7Xx75cjVtLh4PPSW3ivfk1W8 JQ9ceVj 4Jv Okq5KJ 3/1 uu16 qETnu8766 0564 v89UvPzFfx3flDx6y1xdqj5dvPiUP1O2xU65rse x9Syec45Vvd6WbbcmtJzdph7H48tPyOXZi 3rrebtdRz8NrW0oTGt7bx2nfPQuSifu3zFf33G2mPP84Q8FTzGzTbXx /LT8hlZ7nFdm/deFgud26r7bXm/n71OU7uNmO/D4E2EEII2YjUgvzGGz9de958c2x 1jv/8A/rzw9 YOfna0lRrCLvteatt9aft9 O5Rcryw9/uOr8spEf/Wj9OTvrk/eXyo9/vK78Y5133lkuKQny7bd 0SuhanEo1XxZlsXX963yg/yLb31P/uChh UPvlVNe0k esV /At56hP3y0dvzh/ffMKq0lXzvSQfdQabekKeeiuyvm89JQ840 31W/N 6ymnynb5yv1y RMvBZePtdvZ1 Ay/r7H1uO166Gn5MVYuxvbDR2Ttm3Zbep7PO6XB/7v70W22 fYRbbZaGPLtLbz2uOcP/CQtw B49g81uHj7rxel9mf Xluf329JB 19y16jHu8/tu2GTun0dcxIYSQ1BMV5H9462dSnBFCyPh859UfyEsv3pa//G vdOb27beTE TX3v5lr2RZVo7JlWWtgpxl5chdWZa1rO/v5Q vPix/ PyX5MGrX5IX6 e/Kh 98rD84bfs e6Xjz7/S3ntW1 SB688IU/by38rtIwdb5qzjjJPf2K fnvewHyx5cPt9ve12kbXukLrsZ8LHbe2bbclsJzTph7HY54X/7TsXtw8T0OPg98m 3HLtLbz2nnO75cHrz4slz/x1eixevFPq lt7fmlvPb8E956ltif1t8L 3l73yLHuOU15xyn2DZbz7/fBkIIIZuQoCBvqxzL4aW1Zep9IyTVfOfVH8jzN/ 2My 9eFtu3347KUG 88P3O5NlmWSzWTVodfCex/XI1vO5ZrNSkmPrfGkuVQ/ 6evW81 VR 3nXvmSPHjlSXn6h /LneeflMtXvyQv1c8/LJ95pVqm r8ff1q5/keff7 5fmderx11XpfPXA09H9qO9fj5J VyvZ229Yf2JbQue9m2/W9Lx7HpdTzc81lOb5m38ziUx7duw/NPyuXoeW62L35eu8/505 w2vH8l6zt2Ofc36bfHnvfVrc/5e9K6By/Lp 56j0/f30szmO5z595fthxcrfZck5fKcX6pUGvPUIIIVMnKMhv/fjnWxk5vCTy2mdXn8NLk 8bISnny3/xjd5JSZC/ 6N/7JWQJPvTfTluXecrT8uDV67JZ16xn/9refTKNXn0k9fqrpyPPl9NK2Xj8pX75fLVJ XRq9Wy5TLuetz1OdNeeVoerLuK2tO8eZ357pfLn/xra777G 175pP2fIHtzsWluV8d7W0897p85uqT8kzrMn3i7sflru2GjoezT1aboseux3Gwp3/ySacNrcc4el77nvP56 vq0/JV/9g45z7cnvr/Va4 LV9t3R//vHmPreUe/PzT0XP81c9fkwc//3rgdyvQlq7j1LbN2Dl9/kn3/BJCCNmI7J4gv/qZ1QdBJqQ1R8 d9E5Kgvy9s//eK9V1xZl1jXEolRxnWdZ73Wnka/LolU/Ln0/eDkK8fPsZeTD22vz2M/Lg1Wfkrydp2/flj65ekz/6dgLHiBBCyKDsniB/54nVB0EmpDWH/89x76QkyH//4/8xKFmWLTU92fzlp Xy1Wfka1O3gxAvf/7J 1tfm1/7z9fk8if/32naNcF2CSGELJ gIL/9znsXGvPsuZhnz2X27LnMDs7k2o0zuWbOZM cyd7jZ3Lf7I7c 7E7cu81N3c/dKd1ve/85OfOYzm8JPLt3199Di9d DEjZJPy7H99uXdSEuTX3/n/djvf XP5rXl3U/OdBNpDyDtviPk3dpftT8t/nbxNhBBCtimDBLkSWVdoz XajXO5dsMW2jO592PzXDvr/PBsnj2Xg2Nxc0vE3BIxN0VmN0Vmz57LtYN5bpzL3o3zXoIsIvVjObwk8q2ZyLdm8r 8ZjcfNY08v7Lv1/P0zsIMiGt fNnvtY7KQny9985J4QQQgghO5SgIP/w3V8E44ussSX22TIhiY2tz15vtII8a68gt623EuTqsRxeEvnmfxT55n Um88aOX/vpsh5mfPzm3J ZuTmgZE38t r5 uVw0ud 0jILufpL321d1IS5NN3/4kQQgghhOxQBgtys3pciux9duX42iJ373UL8sGzx3L v6WZ8zJn5yJn753L2XvncuesjIjI3b 617reoCD/zaMif/Oo3DwwwRwcGDm4YeTgxiyY7z/3kXoddRBkQlrz1Bdf7J2kBPkn/0QIIYQQQnYoQUH 0U9 GczBrTty9t6ZXDM3JUYltmfnInfeKyU2tr56vXNBNsbI7PGZXLt2Tfb29uT8XOTmrWMxNw5k9ri R2Wwm1z42k/vuu0/Ozs47110JcvVYDi JfP3finz938rNAyNyfuxlXlF 70DkPSNyZkTenIncuSbnr1yT8 M9mV3bq9dR5/BS5z4Ssss5 MILvZOSINd/HwkhhBBCyE5kuCCfLQT5/PFrcj7bk/OP3SfnD91byvFD98r5Q/fK2Xsid948GyTIocrxwcGB89z5uci9994rd94cKcgvf0jk5Q/JQS3Iiy7Wcm6J8dlcjO/syfnxfXJ 6z65c OuUpDn66iDIBPSmj/7L3/VOykI8q/92q 1CnKsjYQQQgghZLMTFOSzn74fTC3IjwcqyHO5LbtDi9w5E7lzpxTk2Prq9bYI8uxxI3t7e3Lvr9 5b5 6775bjV7rXXQly9VgOL4l87arI167KwY1ZvGp8NhN581opx6/syfmt Ts2bvl2HxAru3dV6 jzuGlzn0kZJfznz//ld6J/bFCkAkhhBBCyLoTEeRfBnNw847cefNMrj1 ICIiN28ey8Gzx2IOSsGdmZty7fEyd94US2LD66vXawuyc93x/Nrjs8W1x3fePJfjN8/l5nH3uheCXD4OCfKicnwQlePzm/eWgvz4B2Tvvpggt 8jIbucXRXkg4MDQgghZKMiIrzPkZ3OoEG6Dm4ey/GdM7k2Owhfd1xVjs9cie0awCd2DfLZe fRa5APbnWvOzhI11c/KPLVD8qBmbnVY0eOr5VyfFzK8fmzd8vZwV1yc/YBue/ee t11GGQLkJac2P/ d7ZNkG evUqIYQQshF59913Bwvy1G0mZNUZdB/kg5vHcvzKmezNBbmqHs9u3JSz92RxLfJD98rxnYUgd90jta4gB0atPjgIX4N8cPNO57qD90F 6V LvPSv5cDMyts81V2rA3J8q5Lju XsRinI9/7Lu t11OE yIS05v/6k7/onW0UZAAAgHXz7rvvLpWrV8cLMsA2ERTk4uxnwRw8eyw3j89k72Pz7heB646P3zwv5fjOeV3lja 3PXm sa3XsGmRzcKdz3ZUgV4/l8JLIrd8SufVbYh6vBLlDjp8t5fiO YAcfOwuuftf3FWvo87hpc59JGSX89k/PqzzK7/yK43Y0xFkAACA4VRyO4bq/QpBBogI8g9 FM7Bs8dycOtM9j5m6i7UN4/P5OBWPHf/6l50ffZ6z/ 3yJ0359cY3zmT41fO3PXfvCMHz94R8 wdmR3ckdmNO53rrgS5eiyHl0Re E2RF35TzOPX5PzsQM7vXJOzW/fJ2c1Shu8c3CXHN 6SY3OX3JxVKeXYXLtL7rrrA/U66hxe6txHQnY5f/SZZ52EqKYhyAAAAMMZKreh9ysEGSAiyG /ZNgzLPHcvev7g1ObH1VDkaut2vdlSBXj Xwkshf/SuRv/pXYh6/JrOPXZNr1/Zkb 8 ue e Xef3m33P0vSgm 6wPxVOuoc3ipcx8J2eX8wZPP9A6CDAAAMBwEGWA1BAX5jbfe2YpUglw9lsNLIl 5f/U5vDT5vhKScp64/qU6oS7W9vTtF RcdKbEFNZThRGVZZIpI/bT1fM69/4/NX3bUhhR/r4CAMBaSEmQc51JlpVRfd8ECiOqemOp3hftrPoNcOz7aq4lS X9GNZCUJC/X/x4ayIii/8fXhL5b/etPoeXJt9PQlLO//n7B05sOa6opm27IOe6KcKFUZIp1ZTJVAW5N4UYtYYPNQAA0CAZQc61ZPP3s8Ko v/teO8X/nteSlKaUltgLQQF fV/ONvKyOElked/ffU5vDT5vhGScj75if/SiC3H9vPbLci56Ma36dVzuRjlTWsR5PJDR/mtutbem/X8zbuennvr09Z0ZcTEvunvWo/VLqX14tt 61ND2U4tfI4AAFgvKQpyg D7ylyOrfelwhfk6r2mWukq3ucGv5cNfM t3t/rdfJeuCkEBfl7b/5wKyOHl0S /H sPoeXJt83QlLOx3/vT4MRkcZzWy3IoSpw45t26w00Jsjet9dVV7Zgpdn oFJ1WZtPrN7wqw8LzvZ7rMfenrtO64MR37QDAFwIIbl1uih7WV8X61IMG92i295XhlSQ1/E 1/ZeNvY9tzoO/uVTkDxBQf770zO5/Xoh3z19e6sih5fWlqn3jZCU89h/2O drRbkwLfqTpfryDfm/ptwQ6StN2/7W 7GN9odXdbsDwS91xP8Vt/ax43sGg4AsHnE5LZLjlcvyCWL65B7vK9EBNmez5Xc5d/n r6XjX7PrQSZN8CNIzxI11ySX/v W4QQMjq3Xy/kqadfkH//7/6kM48 8ll57vDlHRNk61t2O6Fv0AcJcqRrW s33SFB7rEeBBkAIAna5LZNjtclyCWLS4var0duqSB77zOrep9bnSDH9il0WRVsAlFBfuONn8pjj/0JIYSMzlNPvyCPPvLZXnnu8GV5551/3G5BDl5HHKgot3T/6tvFenC3ab89fdfTJcht16IBAMDK6JLbmByvWpBD72OqNM34 0pHF tR709lY5YWZH dvd9zEeSNJRv6gY8QQqbIVgiy82Y5/zDgX5s0l1/7w8Ryg3S1VHPbPjj0XU HIDNIFwDAxZDMIF1 7yj7fS72viJWl zQIF1 d VVvM8Nfi8b J6LIG8stSD/9m//NiGETJ7tFuTqlk4rHrAj2Sott3kCALgo0hFkgM2mFuSDgwNCCJk0IvE35YOD7RDk8hvlJWW2ZfC SpChM897OAACwFhBkgNXgCPLVq1cJIWSSdL0pb48gAwAArB4EGWA1NAR50sbMKyEAsHsgyAAAAO NBkAFWQzKCnGWZ1P QZICdA0EGAAAYz7vvvrvUZU4IMkDJhQhyn8qwfS0dAOweCDIAAMB4LuJyJ97nYBe4OEGWsARvkh hXw893DoZTDaCz6pFqd5Fq6HyO5dazrYL87rvvEkIIIRuTtvdi3ufILqRTkD/0oQ91potagkVqUZb6Z5l guzdVy12j7XBVOttuVenfW/S4Pzz25lkSkw UpCd 6gtv1/OjczHraH7uDTOiXtz9Oi5skbhVe5N8Br3kavuPZfkKL2wMt59d/sEGQAAYBPhfQ52mV6C3EZfQa5 xirI9nx9WK00dYlgJb L6aV8Nm9Mnul8fAXZr5ZWjye7h2jXcfGnh cPnqv6GClR9XEqxCglSnnHNnD8YfvYRkEmhBBCCCGblYsXZImLsmT9JTkqyH4Vdi5ffvfoavlMG THar3J6ImbLr7edevvzxzqX4D1Ka ltu3 pL8i2aNv/z3Xdxno/vHXl1j7p3G1zsDodmNZ1XELnoO9z9r4ZbR03bRaV MLfFvdT3WYQZEIIIYQQMnUuTJCdiNvVuppnaUGeS5cvnK40KjHFvNJZC2JHpdSW38WTzjrKdc X9yrI8Wp34cqgJ8jOcnbFtWqrV2H2u1Q7j9uOTeM630KMNlJ0HJdgF 5A1btLkItcS6ZzyXUmOi Cghw B7BNbJIgLzNKKCGEEEIISTe9BTl0Lak9Pfazwq8YHx8f18/NZrPgPG20VSobqa2qki9f sYIcrU9LXm1fDWD38Xak8ZmOz1BDrW9rjz73bwDFeKAMLcdm/i1yhckyNV5sf8fEWSuQ95eNk2QVzFaKCGEEEIISStrryBXIlYJcWOaNU8lyn3o3ZXXwR44anlBr iRPm/nP3H0 JMh G51rmdtGbA5c1zxGkEPHZqwgr6qLtdsiKsi7yiYK8sq79PT8ghAAAAAA1sNaBbkSY/uxL8zHx8dOl u ohyUrroC21bxtCq fbtY 92TFxPCFWlP/mwBda Fbu9iHWpD8LrhPl2s247NgC7W7nFfxSBd/QSZa5C3HwQZQQYAAACYmrUK8mw2C3attrtXO42R/pIcrYgGB8HKa5Fd9FhWjhS6XZB9iYyPotwqf8Fu3nYV2xuxeaggN9rttqNRGe4zQFiVyHExjf2N 3eap5zHqJch2F2zYVhBkBBkAAABgatZ H TZbNYqynVDLDEe0tX6wti4a2CLxpcCmwr3Qd4NEGQEGQAAAGBqOgV5VcREOXkxtvBvFZUqTtV30 24raoOWwWCjCADAAAATM2FCXKFL8qbIMYAsH4QZAQZAAAAYGouXJABAEIgyOME2aiZZJkbZd7vt WyuZ5Jl 62D3xVmv9d6c91/u0Nx9lEfiVYnvZbrs3 thMaTiA3muA5Ct/5TZpkV1gNUxjDKGwyxMKKW2iYAAMBmMakgd12/DAC7A4I8toJ8Kjo7cqTNqP5S2HfewuyvTYCHbDfXM8l6CrLIsGMRJNfupSq5HizJRo2X6sKoxuC Ly13mk4uOCa /r9Y2N/1qHQAAgL5QQQaAJECQVyfIhdmf3/ 8rP4ubv3WrAQbtS8mPxFVV6DDQhkT5D4V5mq7WVbK7RBpbRPzVe5flIA0OtLqVXk772jgD5zoz PJqy/IUhhR9go6lven6zwuyEZFRJgqMgAA7BAbW0Gurl22AwCbC4K8ngpyJcs1 ZEnkJ40FieivPVV62mrIMem53ommT515hsqqU4Xa696vKr9ixKqqtrP5bl37JuS2VZB9rs0F0Y5 kusLsr/ 9uVz0c4t89q6WOeio5Vxfz0AAADby0ZWkGMyvBWSbFUj1t6lbV4VGPyZZ xyq1h 2W1DsiDIywhy/BrkPgLp/61pLCNjBfm09/XCfSnMviPJq9q/KF2CHKgS9xbkSIXZ7sLddq/7zuVz3eyOHasGF0ZUS9fxaHUZAABgy7hQQV72nsoiCwkuf2bez3BlOSjO1QcL7x0/1/NbCk0iYt639B1taP3gFMNe55oFOdq tuW71h2bjjhvPAjy6irINt0C2azmpizI/v6uav itHaxblZWC6MGVJBbrgdubEsC1z93LI8gAwAADObCBXmZ6SJ2ldiX42xYZbkwopQWrXwhVdOJlv 8BpUX6qm501tAtovtI8gUJcmv71lFBRpA3HgR5fYJcC2NRXovb6IJsS wauli7z5cV736ydSra745dnIjyumyvYv iNATZ6orsy b8i9emIFvvM57kdg265XexLoxy2tO fLPbdPUlcJ953Wl0sQYAgN1gYwU5LMfhn3FBNpJbHz5ynYk2c9FyhGt 3VbVfW4 j9FWVzanq1uke5wtpo153W1kSotWsepw5MNKEWq79bwUYux1au3Kcug2JqHn7fXnWrJGW/q0z96/ bxV9/Jgm bzBLft7Vcl4f6ykDQI8ipu8xS4trfwBqgyR3U37Oo2SFrvR9bR7L5dphLMrumhNvaV49j6A8I8e v866DHIlttTRonWqtnN2hnIqymh9t8vv4t0aPAtowKPY7ei8m8VpXX0OmQG6QIAANgwQY51n25L tLJci9b8W3NfLj2pDI06uniulNvFJWnzb/i9inCuteSxeZ02 W2Mtd3H25fQ/MH/x9rUsl/VMQpVHPq0z5JWp9rsnxd/nbFtN77Q6FeJh3RAkMdWkAFWBLd5AgAAmEaQmwOKZM702M8hg3DNZjPJsu4Kclm4tKoCUVEOLxt 9nC1kuFGRDc7bY71dz48V5Fib2p6PVEJGt88/BsHKTcu2/f1qGfQG0gRBRpBhevxRsakeAwDArrFxFWQRkePjYxHJOn/2FeSooC0tyBWWKK9CkEd3sY78f4wgz7unh6oNo9oXO/7 qmPbXsW11TApCDKCDAAAADA1GyXIIsMk2a4iN iqznZ1sQ4MQBXqiqwXI4DNv5kf2MU6UvnsHATLvw667cuAsV2sJT5AzJBBusLHwN126Ng723b2O bIsJA2CjCADAAAATM3GCnKfCvLx8fEKBFkaXXbrgbz85ToG3nJlLjIglrfeqvt3VEJ7DBzjDMZl r3MVg3S1jJ4dbZ/fBbqt2u3P17Jt51i1bQOSBEFGkAEAAACmZuPugywyTJKHXLcMCZBrZHZHQZARZAAAAICpuVBBXh XDR7KG9Kmq7dySaVdBkBFkAAAAgKmZVJD7VowBYPtBkBFkAAAAgKnZyAoyAGwfCDKCDAAAADA1W 1NBHrKusut1Nvqnzao/IMqyPe8AACAASURBVJPVBDYPBBlBBgAAAJianawgLyPH/jXNU4sgQZC3BQQZQQYAAACYmp2uINtU9022ZbgcCbt9ualFkCDI2wKCjCADAAAATM1OV5D9x10V 462pIN Lvfcc11uX9RyCDL0AEFGkAEAAACmZucryLGKsV9R9perqMUxyySzsne4Pqm8ff0eZ1v3XL89TG5 XLcje/t9z/fZqtocg7xQIMoIMAAAAMDU7XUG2Jdh 3p13Ic/RCrIvgHNhrCV51XLsyOah7PWR5LUJ8qHsZffI9dvW473DfmKNIIMFgowgAwAAAEzNTleQ/cpx32uTbaICWD3ni2ldaV1IpVMRbp3Xl9GWbTntui3X77EqvHt7kTbtyaEn c7z9voP9 btOpQ9e7mubV8/dB5nWSZ71yPtnv 8vhepzNtVe /4w aBICPIAAAAAFOz0xXkPtcYt80v0iLI53NxrKd5ImlLoPX84d6eHLbNG6zE tsKVG6D/y rz5V03r5 j2R7h3Ieez7a5rmk2pXjPhXrw71SbGPt9ivx1fxe 0Lrh80DQUaQAQAAAKZm6yrIfX7GKsKxAbpGVZB9aQ1cp1xWZkvZi1dvrXlXLcjBruGR9VTP 231hbcS5S5Bvn1d7qmq4W2CPOR5BHmjQZARZAAAAICpoYI8vxY59Lx/7fGgCrIvc53X4Vqi3CrCY7pYr1CQ77kuh3WlObYf3joa 1N2u45WgLv2p64kI8jbBIKMIAMAAABMzdZUkIfQNfCWO294QK KsKBZXYAj3Zltud2rB9i6Ldfvqa7rDQ/y1TpIl9f12ZnXnrZsF vzslt1vc1Q1 rGtddeu/xlQu2OCr/3RQGCvBUgyAgyAAAAwNTsdAW5/H zkiwijcqxv1zFQvDs7tAReQsOLFVVjr1bNrUMQuXf5skWaXuaMxjX eJa4ZUM0lWLuT/oVrjbdL3t69ed/a3WHWx3W0W86s7NIF1bA4KMIAMAAABMzU5XkP3HsZ x5UTiH bJBeZwr9HlGzYPBBlBBgAAAJiana8gV4SuNbYryrHlJpfDHU09cnZk0DDYPBBkBBkAAABgana6g jz2p83UokjCgc0DQUaQAQAAAKZmpyvIY3/aTC2CBEHeFhDkEYJcnIjKZpI5OZI8MGuuZ6LM 8ufqIEURtW9PZQpAu3yb2mXSaZDezAFp6LtY6tO1rIV5xgos9J1dx3/ZTEqkyxTMnbVaZ9/AADYRXayggwA6YEgj6wg50eS6VP3cUSSp6QwqlXQuqZPSnEiSp1IrvdHi2CMXLtCWBg1WJKN0p3 ne53H16jxglyR9PnvoM/xBwCAzWEnK8gAkB4I8ooEWUQKs19XiwuzX1dAnQpyVX1W /Mq6ZHk VFrFTpGWUWsEpaFMYJcVT 11q3rd7avlKi5YNbVTWMvP1zmCrMvOheR/ChYhTfKrjLvi pbaS5M3VabXGeic2v/88XzTiW4MKL86qs1v7up PHvOn/d08tjalerY6 D KGY6Pz7xzByPuzp9RcCPY9/2/GrpilTWMcP4QYAmJKNrSCXXZ7dAMDmgiCvTpC7pHnxZCnJlfxVYlwLYQ M8rru5jooGWMryKU0LITBn89/nGtXckoBsYSjMKIGCohR1RcGp6I9 fWPa677d8WOHpNc188XRrnnwpq2aN/4CnLX etzfl1BHid3U51/v/rtV/CDFX5PstuOf6/fj1y7cp7r3r9/AACwejayghyT4UkkeV4BiH7s65oOACKCIE8myJXMWcv0FuTCiArMmOtmlXYZQW4XxFx01l6h85v YWGcb3rHM9cxb1rtOeUD1fXJB7jp/Pc9vXSFd4vrpSc5/pAK8WEcuusc RY9/39 PwDkFAIDpuFBB/tCHPtSZLioJLn9m3s9wZTkoztUbo/fmVX373PutCkEGWAkI8nq6WLc9tx2C3Ni4V0EMt6WvIOfaHwRt1vxCwlngqP9gXh1drINtTVSQy 27Q47sGT3P uwQYQQYA2EUuXJCXmS5iV4l9OW6OMN1cxqIwopQWbb95FkbU/PolBBngYkGQVyXIp6IDVcy1CLKEBCQsFesS5Mb2c 188WlUs7LZf1ClZpfqcvkjq4uuN3BXqKLfQtcgXc5xmX x2xRk6xjkYVGNd7FuP399zm89T2Tbiypv/LhPdf5z3T66d3N6uS92m9qOf6/fDwQZACApNlaQw3Ic/hkXZCO59aac60y0sYTW6X7lX8PkDtpR CJcPS5i61t 1E AbQJBXtVtnuwuwH73X6sbsL2sPp1fg1wO5FUN7NW7ihwdpMjv/tr8e9p2mx970KfyOunFYEvV3213AKRQF1slWitnnl4y4hzbSoLt41k 5wzQNWKAs8Yx8OXJf9 YDzjVuK41uP/dx7/9/HVPt2/zZO9HuBt0U5BTOP/d62gfhCt /LuOX/j8cP0xAMC0bJQgx7pPtyVaWa7FNRedackbQut S1wYNX/T9r49Dolw8Pn5dhrbBwARBHl0BRlaWcUtiGBz4fwDAMBQJhHk5rfZmTM99nPIIFyz2UyyrLuCXP YKs761bRNeW6T99XQ9HxwMhFs5AFQgyAjyqnFv/zN ACnYTDj/AAAwho2rIIuIHB8fi0jW bOvIDu3fVinIFMxBoiCICPIAAAAAFOzUYIsMkyS7Spyg5iw9upiveiyVQ2oUnj3VnSeD6wPAFwQ ZAQZAAAAYGo2VpD7VJCPj4 XEGSJD9JlDxSidT2/PaBI/Xx0fdmw20kBbDkIMoIMAAAAMDUbdx9kkWGSPOS6ZQCYDgQZQQYAAACYmgsV5FUxfCRrAEgdBBlB BgAAAJiajRRkANg EGQEGQAAAGBqEGQASAIEeYQgFyeisplkTo6Ct4/L9UyUeX/5E7UU5WCF9S13Jr/93alo 9ipk7VsJdfhbZTP7/e7T29xIipybgEAAGB1bI0g971 GQDSBEEeWUHOjyTTp 7jpEUqF23fkzbX8zsEWI8v h7xxYkodSK57imrA8j1zDk/hdl3JNmo1W9zKEal/HoBAAC4WLZGkFeJ/yGVbo8A6wdBXpEgSylhVbW4MPt19dKpIFfVZ7U/r6IeSZ4ftVahfYyaV30twc31YpT eQOcKrHOOwRZyjsCKMsa6 1EKsz1NufbNUoNks7C7Je34MuPglV2o wK8L6ovpXmuXj75HpW3/LPqH0xud0TwBVmZ9v Oay20VEF9yvYtZQHeyDMuB0hAADsNFsjyKuqIJcfULP6g2qWZSIZkgywbhDk1QlylzQvniwFqZL DSoxrYeyiMKICM a6ElT3vvGNLtblzA1Btp8zKnNkWXLtLJ9rV9DL2 0NE RFBfVUtCeY/nHLdf u2MFjLuKIeCnAlhS3daUOCLxfgfYr1MEKdkPCqSADAABUbI0grwJbjm1BvjBJjt2bue90gA0GQZ 5IkCuZspbpLcgiYlRZ0TWqEl rQpxrV27LlYvqK8h9BNxe1xi8Y2VXd0u865QHdF/vK8j LkaPvy/IkQrwoo1N4Q BIAMAACzYGkFeRQV5IcbhCnL0w2vVhdD7RJPr8gNjb6EdJcjlB0SkGTYdBHk9XazbnluFIJeyWv 4dyrUSk1tSO1KQ6y7WFyDITvfjKv4XDs4CR/0H8 rbxbpxiHoKcqcAI8gAAABD2RpBXpaQHNvTWivIhRGltGj7urfCiFJqWMV3oCCXXQkHSjhAoiDIq xLkU9GBKue6BFlyLVrPRTjXopSyls1Fe9cMV18c2su7guwu07ye2JXiXHtdsOfduPu1PyyQtjA2 BDZUsW he5Aur8v2wC7WXaOTN6eXFXH7 Dj7mPwgbwAAAOtlawR5mQqy/aHUqRwHfgaZi2tuDSyT60y0sYTWGajG sDo3 ZEGSl8Ua4ehwSabtewJSDIq7rNky0/fvdgqwuuvaw nYtRKVPVwF69r0POYtccy3xUautvnNaL65CDt3ny5DYwj98udxCvnnJchAbGso9X Zw/SNYYeey6zZPW 9b6W0a17jOIWKCN/vTG8akHZxu3fwAAANvE1gjyUPqIb 8Pq7WkzisfDaF1KxqFUfOKiVfpiIkwggw7AII8soIMO0P0mmYAAABYGVsjyFUFuc/PUJdpu/pQPbZ/tmJJanW7EZ1Lu/DaIu2vB0GGHQRBRpDBx sB0PfaZwAAABjN1gjyEPyRqbMsk0zcn/78rRR V p5F2oEGaA3CDKCDAAAADA1WyPIQ65BDo1MHZNkv7IcJCapvbpYL67XK4xaXINsXafsPI8gw5aCI CPIAAAAAFOzNYI8lL7drDPvZ5BOQZb4IF3WADZK63r eoRq /nYKNZDBqYBSBQEGUEGAAAAmJqtEeQxo1j3 TDaW5IBYCkQZAQZAAAAYGq2RpDXSa9u1gCwFAgyggwAAAAwNVsjyMvcBxkApgdBRpABAAAApmZr BBkANhsEeYQgFyei7NsAZTPJsiMJDUeQ69nF30PXGmOhjjIX2ICLuU1SrsPbKJ/frwdibKU4ERU5dwAAAHBxbI0gU0EG2GwQ5JEV5PxIMn3qPk5ItAqjRFmGmOvMeXwxjTgRpU4k1z 1ldQC5njnHvzD7jiQbtfptDsWodF4PAAAAqbM1grxKBt8HGQCWBkFekSBLKWlVtbgw 3V106kgV9VntT vsh5Jnh 1VqFjGGVXibWzrC/IUhhR8yH3q5H4tdbR5WV m7xymhJjynmHSHZh9stR/vOjYBXdKLsCvC qb6V5Lt4 uZ7VdxUwal9Mblf6XWF2tu2fo2obHVVwv4JdS3mwh8GMOx4AAAC0sDWCvKoKcvkB1b3Vk387KAB YPQjy6gS5S5oXT5YCVcljJca1UPbAKE9Wc 10o/YF2Sj3lnSlJLv3fY/OP79d3tAK9KKCeiraE0z/uOS6f1fs4DEVcUS8FGBLitu6UgcE3q9A xXqYAW7IeFUkAEAAPqyNYK8Cmw5du6FfFGSHLufct/pABsMgjyRIFeyZS3TW5CtarCzea1qQfPv1 7LbWGUu61cL aZ/83z5x8kyN6xsKu7Jd51ygOq530F2T9E0ePrC3KkArxoY1P4QyDIAAAA/dkaQV5FBXkhxuEKcvTD67yqkXmfeHJdDkjT 6PcEEGuthn50AmwaSDI6 li3fbcRQly/fcp18Eu2EME2ZneA6f7cRX/CwVngaP g3n17WLtNbe3IHcKMIIMAACwarZGkJclJMf2tNYKcmFEKS1aKasbnRGl1LCK7xBBzrX1ASsXnan JB4IBWAYEeVWCfCo6UAVdiyCLiFH 355cdEsX68Io58vEVkEOrL/RpbuVsEDawtgQ2FBFvoXuQbq8LtsDu1h3jT7enF5WxO1j6uxjYoO4AQAApMbWCPIyFWT7Q6lTOQ 78DDIX19z6IJjrTLSJVXytCopXCc6UkcIX5epxVKCLwIdUgM0CQV7VbZ5sOfK7D1tddO1l9elcn ErZqgb26l1F9m7lVC9n3 bJkmaj5n/rrO7X5XXQi/mdKrLdW0b17GJdhAbGso9H Zw/SNYYeey6zZPW 9b6W0a17jOIWKCN/vTGeasHXxu3fwAAALvE1gjyUPqIb 8Pq7W45qIzLXlDaMtRWKsPLYsKivt8VIS7BJlrk2ELQJBHVpB3jMHXIG8Q0WuaAQAA4MLYGkGuK sh9foa6TNvVj qx/bMVS1BzbVVD2oTXFml/PYMEme7VsB0gyAhyDOc2Uv41yRuNV Hve 0zAAAArI2tEeQh CNTZ1kmmbg//flbaQyeNe9CvXZBRo5he0CQEWQAAACAqdlZQfZHpo5Jsl9ZDtLZ9bmti7V3O5RKhL37gjauTS6M KOQYtggEGUEGAAAAmJqdFGSR8MjUoW7WmfczSJ9rg2ODdNmD0mhdz28PXlM/b63Pv7cot3qCTQdBRpABAAAApmZnBVmk3/XFvSUZAJYCQUaQAQAAAKZmpwW5L726WQPAUiDICDIAAADA1CDIAJAECDKCDAAAADA1CDIAJAGCv GmCbN iaL8cMDA/WtyySJ86c d6Nvgev4XZlyybLe4VP4Lq1ntOllkhAAAAbDUIMgAkAYK8aYIsIvlRUHqN2h80wr5RRxJT1sLsL yXIi/Wo6ECGRuno9gEAAGC3QJABIAkQ5A0U5OJE1LxSbNSiQmwLb1UFzrJABbk4EVVXoRexhbgw 6KNPV9cplubGhJk5 4CizhC7s jjPu8UqKruxPUdyVAuAEAADYVBBkAkgBB3lBBVicicipa7Yuu/3/SnNXsR7tYd1WQ6y7cHetpberICrJR7v3mq/vSzx IqoQ617UYF0atpOoNAAAAFw CDABJgCBvoCBXMjzval12rV69IDuyGenW3cUoQY5UmOsK8fze9GW7dH1tM4IMAACwuSDIAJAECP ImCnIpt1qX3aILsy9KH9Xdrm02UpAlF10JcHilCDIAAMCWgSADQBIgyJsqyPuiKsGdX1McEth2Q bYG9cqPnOuML0aQrW7UVlfp8mEWXQ5BBgAA2D4QZABIAgR5MwU51 4tnezButxbQdnxKsb27aGy8ABf5XW i/n6SnKv2zzVg2uFB9gyKtDF2u5 rfN6HcoU5XXK/mBfAAAAsBEgyACQBAjyZgoyAAAAwDaBIANAEiDICDIAAADA1CDIAJAECDKCDAAAADA1CDIAJAGC jCADAAAATA2CDABJgCAjyAAAAABTgyADQBIgyAgyAAAAwNQgyACQBAgyggwAAAAwNQgyACQBgow gAwAAAEwNggwASYAgI8grpzCiskwyJ1rywKy5zkSZYg1NUPW217F AAAAWC0IMgAkAYKMIK FXEumc/dxRJLXSWEUggwAALABIMgAkAQIMoK8FnxBFldW 1R4jbIq0EqJUsZ6Xokx2qpQKwmtJirIuXYq3M48dQV8sc66vfM2AAAAwGpBkAEgCRBkBHktBAS5 S5rbns 1K6elJFsV6cKIClSo44KcO/MalYnTtFw3ljPq4ivgAAAAuwKCDABJgCAjyGthSUEWyUW3XMPcENr5ukLPBdcfuE7aX9YR4oAwA wAAwOpAkAEgCRBkBHkt9JTh3tcI59qrIDe7VPcX5Fy01yU7tKwtxVSPAQAA1guCDABJgCAjyOOp qrwBeWwIci56QBfohgB76zOqeT1wSGKD6y9MfT1z/ThQQa7XSfUYAABg7SDIAJAECDKCPJ6IIAdv82QLqN99utmN2hmgK9jFWonWKjLQVvf67UHCsmyx rlAVeYrRtwEAAHYNBBkAkgBBRpA3kVAX67VA9RgAAOBCQJABIAkQZAR503Bv/7Se2y7lun0ALwAAAFgtCDIAJAGCjCADAAAATA2CDABJgCAjyAAAAABTgyADQBIgyAgyAAAAwNQg yACQBAgyggwAAAAwNQgyACQBgowgAwAAAEwNggwASYAgI8gAAAAAU4MgA0ASIMgI8liMmkmWzaO PRKuTqZtUUxhV36IpdB9j/zZOWZZJtmP3cvJvl5Xr1d1bmuMLAABDQZABIAkQZAR5DIXZF2Xerx/neibZQEE26kjWrUyFUUFB7jt9W8m1 8VB YXCMEE2Sneev00 vn32DwAAVgeCDABJgCAjyGPwBbk5w4mozKow2/LsT5tnaIHRqYBmYZkZI8hV9Vlr3bp twKrRCljPa/EGHv5/vJpV7/9rEQ2C1O3tXWezK0wR6fNEzp/kx3ftvbPcarcyohR83X03L 21181TZnCOp8INwBAGwgyACQBgowgj8XpYu1Vj43ad4SlMPuBecZXkI3yZDHXQQkaW0EupWYhNP 58/uNcuxJWCpIlRIURlYog5bpTtGtZnFMY1Ti y1SQ1318u9qfa7fLd6iC3rZ/vV5/uXblPNeDvwQCANglEGQASAIEGUFeBY4ARyrEWXbkVdlGCnJhRAVMI3QN7TKC7GyiIZW56Ky9gug 3sbHOljattYLs7Iu3HzqPVlCb 7icIK/t Ha2PxfdVUFv27 r78eX0QAAMACBBkAkgBBRpBXw6noWoBPew3YtdmC3Ni4V EMtyWJCmLn8VtSIJ1NTXF8u9qPIAMApAiCDABJgCAjyMM5FZ3te9d8nojSp/XDXM/ar1EWrxt2ftSoMLcv6wtSWHrWJciN7efa6bJrVPO614sf9Kmqwoau720Kpi14/iBeIZx15Dq4namOb1f7m9PLY2W3qW3/er3 EGQAgEEgyACQBAgygjycU9GN7tP7DeFyrlEOdLEupTgyrYtAN9qF3Pjdc5vddNtuQ2R3cda5LK4 ltbo4uwM0hboAK9Ha7Sp98bIUF RgN2SvKtq1j/Zx8aelcHy719ExyFjL/o15/SXRewAAIGEQZABIAgQZQYbVE6rQwurg AIAbB8IMgAkAYKMIMNqcW9P1H2tKwyD4wsAsJ0gyACQBAgyggwAAAAwNQgyACQBgowgAwAAAEwN ggwASYAgI8gAAAAAU4MgA0ASIMgIMgAAAMDUIMgAkAQIMoIMAAAAMDUIMgAkAYKMIAMAAABMDYI MAEmAICPIYzFqJlk2jz4SrU6mblKEXLR9S6DCiMqsWwVlmWSZlnzaRq6Uwqh631TghsG59vc/k0yncATm5yrLJMvm9zrO9Zrb6L4 7GPnJHpLKe/1ZU/R4eMPAABNEGQASAIEGUEeQ2H2RZn368e5nkk2UJCNOrpAKc1F2wKTa1e2cr11kixSyl6boHVNn4 RcB9tk1FyY17NR5/XROC6FEdV6z2Xv9dUDo7bv9QYAsAwIMgAkAYKMII/BF TmDCeiMqvCbMuzP22evsVBo5rVxLoiGqkS67xDkKUpRfV2IhVmpwqrTG Bi1YoI9XezuPQUgEfI8hV 7TWret3tq9ULZDl80qMsZcfILeFETU/N0YtjokvlG37X01TprCOtzVPx tjcVwi4ttj eg5DfZgyBqv/6X2DwBgA0GQASAJEGQEeSxOF2uvemzUvrgFuP3APCMryJZA2eS6krBctCNkgS6wAUG2n7PFrJ5m LZ9rV9BLSVlnhdOlq312u8ZUkMv9WQiXP5//ONfu8S0FzhfSngJXV2tz0UrNxdMV0F77X3XNrp7P9VxCu18fzpcYjePa4/VlrSd2/NsqyMvtHwDAZoIgA0ASIMgI8ipwBDhSIc6yI68KNr6LdSUXRlWCYAlUqIuu30W2TZD7CPjA7rRu U5asIHe2z93WWEF2NtE4pva1wuEKp9/ExjqjzI/vfJtlZd465n33P9JVu8/ro7WC3Of11VhPk6ggL7t/AAAbCoIMAEmAICPIq FUdC3Ap70G7FpGkEtZKOUl10pMbknFSEGuZWbNgrw0SQhyY NeBTnclv7d6LVoXUp2YZQorRf7fKGCHABBBgBYCwgyACQBgowgD dUdOZ2oZbiRJQ rR/metZ jbJ43bDzo0aFuZVci9ZzQci1KGXLVy7aq2j6XYCbguwu0xQ8V4qboxOXFdWL6uLa1b6KdQlyY/ve8VxU9u02 0JYVaFD1zcrUdX882t2W7fft9Jbb7f99RE6Lov293h9tawnuA/eIHHL7R8AwGaCIANAEiDICPJwTkU3uk/vNyqGzjXKgS7WpRRHpnVRGFFZ7JpjcW8NlGWSab24TrTPIEmBedoHUbo4Oe5un9/9udkNuu02T3YXcJ2LcywXA2bF111OV6K125W8KXNxQfav8W5ckzti/33hj70 4l3grXa2vb56HP/mOrxpy 4fAMAGgiADQBIgyAgywKpZ7y2ZAABgG0GQASAJEGQEGWCVuLd/mvBabQAA2CgQZABIAgQZQQYAAACYGgQZAJIAQUaQAQAAAKYGQQaAJECQEWQAAACAqUGQASAJEGQ EGQAAAGBqEGQASAIEGUEGAAAAmBoEGQCSAEFGkAEAAACmBkEGgCRAkBHksRg1kyybRx JVidTN6kk14vbDO3E7YZy0fY FkaUv/ ZlvzCmrNrxx8AAFYBggwASYAgI8hjKMy KPN /TjXM8kGCrJRR2uTtsIoUaaoH c6cx5vH7loW0JzLZnO3ccXKMm7d/wBAGBZEGQASAIEGUEegy/IzRlORGVWhdmWZ3/aPHqgvRkVr5D6giaFETXfQGGUZFkmWuuWCuu8KptlkmVKjCnn7SN51fpD6bN8vV/WAcm1V4n1qsQ67xDkwDFpO37ONufbNUpJX8dtO/51 yLHZSXnx6 iU8EGAEgeBBkAkgBBRpDH4nSx9qrHRu2L60f7gXnGV5CN8mQz144EhWTQ9rNSwhbS1Tr/XLYurALqy ScXFeCmovObFn1uliXMzcE2X6u6/jl2hX08niNF2T/ EueO d 1efHl/nCKCQZACBxEGQASAIEGUFeBY4ARyrEWXbkSdFIQe4UyGYV15fbwihP2LRbffRkqlERbW3echVkE RGjSjk0qhJfq0Jst3WxUbfNbYLcR8CXlMmu4x 6TtoX5NHnJ3gN9gVfhw0AAINBkAEgCRBkBHk1nIquBfi014Bd6xbkWpgC198OFbCglK6Rcl9KUc 21EpNb zxSkOtjckGCHD/ fgW8eT6WOz/Ltx8AAC4eBBkAkgBBRpCHcyo6c7tQS3EiSp/WD3M9a79GWbxu2PlRo8Lcvqzf3deVIr/iWxjV6DIcFbDA htdktdNrkXreZtyLUrZ7c1Fe8Kf664u1u4yXcevOahW2Y3b9erqOuBmZbb1 PuCO6/49hbkQPv988OgYAAAmweCDABJgCAjyMM5Fd3oPr3fuD7VuUY50MW6lOLItC7auujaA0BZIlZ1V7 a7/ rcnT/WTVep/l2sV0JhRGWxa469fcwyybReXIcc6WKsc3/9LdPFH8SrOT0qyB3Hv9y83QVbidaq3saqzo/ffrpYAwCkDYIMAEmAICPI0M2Qa5Dh4uH8AABsPggyACQBgowgQxinAsk1rcnB QEA2C4QZABIAgQZQQYAAACYGgQZAJIAQUaQAQAAAKYGQQaAJECQEWQAAACAqUGQ9 yf9AAAFNlJREFUASAJEGQEGQAAAGBqEGQASAIEGUEGAAAAmBoEGQCSAEFGkAEAAACmBkEGgCRAk BHklZPrxe13JrwNT67d7RdGic77LVsYVS8bur9u1/RNwN6HrO BAQAAWBMIMgAkAYKMIK DwihHHHN9sSKZa1f6Khkc6oH fgydniy5dr60yPXwYwMAALBKEGQASAIEGUEei1F2lViL7VcNcSyMqLmB1bKqdXR5kVx0PU2JMbp/tdba1tj2R/ej73Svim7PU253sU/1PnqrcdqnlCi7Cl8YUUtU6HPtba/nMQMAAFgXCDIAJAGCjCCPwShPVr2KpC ORrkVylKSF1LaOv9cBntXanPdOW9X 2P70Xt6njvC7e9/Kb WlBdGVMvxyLUrwUa5glsYNUiSg4I8QTd4AACACgQZAJIAQUaQBxOpNtrS5VzfGpDbxvXAttQGZG 1QV YuQe7R/r7bjU73K7xZU5D9JrjHxK6gh2Tau8a7pQoeAkEGAIDUQJABIAkQZAR5MD0FuRbHXAe7YA8R5D5V Yad9bbK3dkHORWfNCq8ryOFtRXs5OxXuXPSSMtu45pgu1gAAMDEIMgAkAYKMII hKXiutPniWBjVGDQrKsiB9Te6RFfbjFROm4OClfNW2 xqf2w/ek33BX1e8W10sfa2Z9RiPxrty7Vz/JYe9Kwwor0u3PgxAABMCYIMAEmAICPIo2jrQmwPUOVcN7u43ZKzjDW/U0W2u2irWKU23rXYHYQrUDGNdoH2uzf7XZi7pvtdzJVo7Y6ibdTiufhAXu3dp/vM04azPHYMAAATgyADQBIgyAjyJrCxt1OKEOpiDQAAsMsgyACQBAgygpwq7m2OtmcAqW3dLwAAg GVAkAEgCRBkBBkAAABgahBkAEgCBBlBBgAAAJgaBBkAkgBBRpABAAAApgZBBoAkQJARZAAAAICp QZABIAkQZAQZAAAAYGoQZABIAgQZQQYAAACYGgQZAJIAQUaQV06uF7cxmuB2RoVRze1nmWTZbtx 7ONf99rWcb3F CqNE5xfTxlYKI6px7rSk0LSVUf2O6Lx vV7ofb4n3r5zqzM7SbwAO5j49Tnk71uuL a82vd1T7F948lFh16XhRE15S361v37O HfBwQZAJIAQUaQ10FhlPOGepEfhOxt5zqrpc/ ELcKjEpX2rr2Ndfuh77qQ9BK/cQWiaEfJnPtfijN9WAJWfv5WWb/5ssqU9QfRi/UDVex/WX2XwLnpzCiEhLk1tfPhK/Pi/r71hvvWCTXviUwKhNtwq9Le99GkfLfjwn/PiHIAJAECDKCPBa3CuR 2PMF2f7wW8uY1tHl62/uq8qD0aO xY5 iPGrQPYHFGuazsWqiM8/4AUrSP0/QMQrLP32z6782h9g7P0wSonJ7XZaH057iEh1bpUprPYO 0C/1AdIX0DEe015vRQar7Wu89N2/ns3cYn9m29/8fq6YHlYwfaXFYRKEBt/K rp8b8v0ddndV6Vmv/90JLXrxVrHcu fhJ5fcbOgf03JrjtruMz4PfDqPjrIIX2jaX Ujf293LJKvL6/37ki2O4lvWvBwQZAJIAQUaQx2CU98Em186HFP9Dr/8hqvyAtHjjbp3f/jZ7ILEPIX41ozAqIMmuEPvrmbKC3JAK7wN7KRCeFFfHO9f9jmX1wbQ6Lrke9oGu73Zi2/Y3Zj X5w1hGnJ Os9/zzaO7xWRi3ZeXxf9WlrB9pfaf1eA/fV0/X2pnwu9Phsf7hciXr9Glnz9pPL67JKs4JcPPY5P/9 PXHTLa2f69o2jMGpxLqNfKFq/Q2NY 9 PJQR5wr9PCDIAJAGCjCAPJvKBIdfx69D8DwKN613tDwuBb ZjVaYugh/QIhWcxgeJer7wh6BlukguU0Ge75nzwdT/wBj6QF4f8wGCvLwAjfwA2SUggXPYW0D6nv8Oltq/pbB7V4xv/7Isu//RCnKPvy/zJ8KvT/vvh/Wacf7mLPP68dYbfO6CXp jBbTt Az5/eiQp8nbNxJnfIaWv81t1fMupvv7kTYIMgAkAYKMIA mpyC73Q2bXbCHCPJYWQt/QMtF96k2WN0kw1Xoaa9BtoXX/7Aeut7P YDZc//HCnJ9/ufb8q957rPteBfWZuUmNMBY/Pz0PP8tLL1/G84q9r9VENcqyMu fiSZ1 daBHTI78cUgryC399BtFySMlaQd/3vRxsIMgAkAYKMII hKWDuhxb/g4/TZU06BDmw/kaXy2qbHZWD2Ae0rkHD3C7g5Xaa3UCtNo4YpGd5ymMekmGjskCX8UX7mvtf7mPbORmCfb7Hdl92 PzBaFXNf8KNd4OPnZ9lB45bevw1nFfs/pItxUIrGCvIKXj pvD7XI6BDfj/W1MV6Fe2zRmJeijV0sb6Yvx/LdLGeDgQZAJIAQUaQR9HWhTAwaJTIQtrsLsbuIFiZW0W2u7epUBfr AeAZjfm5jzNW80sunx2ts/fz4k hPhfPJTNKrvuaW0fg4hEB7uAhrvwDv2c2Ti /Ucx6xzEyD2/i31tDKQ04vyvff 2hGX23102IBmtXZRbXp/2cjqvXwP2YF46X/L1k8Drs/3vW0sX/J7Hp2v7fjtDl3NM3b6 t7trozEgoruTSw3Stf6/HwgyAMBoEGQEeRMYew0yAACskdD12AkQ7nW0Opa zRMEQZABIAkQZAQ5VZxv2HesCysAwKaQ3D2O1z3y8pLVY4iDIANAEiDICDIAAADA1CDIAJAECDK CDAAAADA1CDIAJAGCjCADAAAATA2CDABJgCAjyAAAAABTgyADQBIgyAgyAAAAwNQgyACQBAgygg wAAAAwNQgyACQBgowgr5xcL27PNNFtmpxbRNlJ6MaVuXaPT2FU7/tqFkbVy27d/aGt14/OA4 l /xuwvkHAAAXBBkAkgBBRpDXQWGUI265vniRM8q7D2ZhRK1QkBrrH0CuXVmrhHdo8/zjvFEURlTkC5TGlwW5bsht1/ld9/kHAIDVgiADQBIgyAjyWNwqnSsjDXGz5KSWQa2jy4vkoutpSozRg6ullSDFJDLW/s722WJnpbd79RS1tuO7WFVckNuWr6YpU1jV6H7Cb1ev/Qw5P7mOH7Mhghw/v 3TAQAgLRBkAEgCBBlBHoNRngzl2qkC lJilCtDpWS5Uhqdfy6kQyXHFkR/2T7tb2tfuY6RFeRcd 5LV/vsdsbkv3P5quty9XyuB1ewl6LlOIQkPHQO28S8azoAAKQFggwASYAgI8iDiVRAc62k8hBfcHxBC VUI1WJhUYEut8MFOVJB7Nn aPu89Q mS5B7tG8xa C49F2 h6iHm7eaCnIpsM19qrbR9/hTQQYA2A4QZABIAgQZQR5MT8GspSTXwS7YQwR5jMxFBXZqQQ7t38D2LWa9eEFeBXW758cidE32s sd/mWvEAQDg4kGQASAJEGQEeQxG bKWi27pYl0YNUiA/PU3ugxX22y5drZNkPq0v1vQrHUEvgRoa19z0LJy3sUoze3ts9sZrp72WH5iQc7sa9J7DNKFIAMA bDcIMgAkAYKMII8iMFBVLTT2bZ4s8TFqcTuj2G18nCqy3XVXhUQwLqDuAFWBbrwt7e/VPn8/g5LeJfAtg3y1HV9nALPIQFwjlr/oAZ4bt2LyBnFrO/5d57fz/AMAQHIgyACQBAgygrwJcB0pAADAdoMgA0ASIMgIcqo4VcC2a3YBAABg40GQASAJEGQEGQAAAGBq EGQASAIEGUEGAAAAmBoEGQCSAEFGkAEAAACmBkEGgCRAkBFkAAAAgKlBkAEgCRBkBBkAAABgahB kAEgCBBlBBgAAAJgaBBkAkgBBRpBXTq4Xt2ea8DZNuXa3XxglOu 3bGFUvWzo/std0zcBex yvgcGAABgTSDIAJAECDKCvA4KoxxxzPXFimSuXemrZHCoB/r7MXR6suTa dIi18OPDQAAwCpBkAEgCRBkBHksRtlVYi22XzXEsTCi5gZWy6rW0eVFctH1NCXG6P7VWmtbY9sf 3Y 070quj1Pud3FPtX76K3GaZ9SouwqfGFELVGhz7W3vZ7HDAAAYF0gyACQBAgygjwGozxZ9SqSvjg a5VYoS0leSGnr/HMZ7F2pzXXnvF3tj 1H7 l57gi3v/ l/FpSXhhRLccj164EG UKbmHUIEkOCvIE3eABAAAqEGQASAIEGUEeTKTaaEuXc31rQG4b1wPbUhuQtUFdmbsEuUf7 243Ot2v8GZNQfab4B4Tu4IekmnvGu WKngIBBkAAFIDQQaAJECQEeTB9BTkWhxzHeyCPUSQ 1SFnfa1yd7aBTkXnTUrvK4gh7cV7eXsVLhz0UvKbOOaY7pYAwDAxCDIAJAECDKCPIam4LnS5otj YVRj0KyoIAfW3 gSXW0zUjltDgpWzltts6v9sf3oNd0X9HnFt9HF2tueUYv9aLQv187xW3rQs8KI9rpw48cAADAlC DIAJAGCjCCPoq0LsT1AlXPd7OJ2S84y1vxOFdnuoq1ildp412J3EK5AxTTaBdrv3ux3Ye6a7ncx V6K1O4q2UYvn4gN5tXef7jNPG87y2DEAAEwMggwASYAgI8ibwMbeTilCqIs1AADALoMgA0ASIMg Icqq4tznangGktnW/AAAAlgFBBoAkQJARZAAAAICpQZABIAkQZAQZAAAAYGoQZABIAgQZQQYAAACYGgQZAJIAQUaQAQA AAKYGQQaAJECQEWQAAACAqUGQASAJEGQEGQAAAGBqEGQASAIEGUFeOble3MZowtsZObdT0lr0gD YURtXLbtP9lwEAAFIFQQaAJECQEeR1UBjliGWuL1Y0Q9sfI n elaJUVrytawZAABg80CQASAJEGQEeSxOhTZzZa8hloURpfN6WpZlorWOLi Si66nKTFGD6rmdoptYUT1qHBH19Nj Vy7041SYorAsvNobBkAAHYYBBkAkgBBRpDHYJQnq7l2JNEXS6NcASwleSHFrfPPhXJoJdcReE9g a1m12xOQ3Jggdy2f60wya4fL/XWXoYIMAACwAEEGgCRAkBHkwVjVYJtcLwTQvoY3VPktjHIrprlezFMYUZ6sLtvV2RHYSAW3WcWO bLdz bzX9c4IMgAAwAIEGQCSAEFGkAfTU5Brscx1sAv2EEF2po8iFz1QYKt2NrfbtTyCDAAAMBQEGQCS AEFGkMfgdzH2pdAXy8KoRpfjqCAH1t/o0l1tM3r9stc T r7DhoWq1x3Ld cXrbV3mdnHwNfIgAAAOwSCDIAJAGCjCCPItDNuJY/ zZPljQbVT62u1/r3J3fqSLbXbRVpJLbOcCXNdCXt7g7yJjXRbpHF z48uHpjaJ73jZIGQAAwG6BIANAEiDICPImsM7bLQEAAMD0IMgAkAQIMoKcKm2jUAMAAMB2gSADQ BIgyAgyAAAAwNQgyACQBAgyggwAAAAwNQgyACQBgowgAwAAAEwNggwASYAgI8gAAAAAU4MgA0AS IMgIMgAAAMDUIMgAkAQIMoIMAAAAMDUIMgAkAYK8eYJcmH3Jslkz6mTkGk9F915 Pm82kyzbF1OISH60aIM debO9UyUeX9Qa6r90/mgxQAAAGCDQZABIAkQ5M0TZJFSIh3xLE5EjRZkEZFT0X2Xz4 C0mvUXJh7YtSRxBy4MPsIMgAAwA6BIANAEiDImy7ITbGtK7DaquxmnowWJ6Ks6rPOBwhycSJqXi k2alEhtoXXrnI3ZNrb9qIN7j5oY88Xl2kAAADYfBBkAEgCBHlzBbmta3U53RXWhaieis7sau QLtZiVatPRav9uViHBbtR6bboqiBnVhvb1gMAAACbD4IMAEmAIG uIMcqyNV0p4uy3S061EV6UBft Tbn6ym7Vq9ekKPtBwAAgK0DQQaAJECQN12Q49PXJ8il3GpddosuzL4ofVR3u 7bTgQZAAAAKhBkAEgCBHl7BNm/BjgumKeivWt6cz1sFGyj9kVV25tfUxwS2HZBtrp550eNLuEIMgAAwO6AIANAEiDImyfI0ds8zQX Tnq5zcW7DZFeRnWX10aDrkHPt3tLJHqzLvRVUs32LlYQHEevVfgAAANgqEGQASAIEefMEGQAAAG DbQJABIAkQZAQZAAAAYGoQZABIAgQZQQYAAACYGgQZAJIAQUaQAQAAAKYGQQaAJECQEWQAAACAq UGQASAJEGQEGQAAAGBqEGQASAIEGUEGAAAAmBoEGQCSAEFGkAEAAACmBkEGgCRAkIcLcmH2Jctm zaiTkWfhVPSI5Y2ytq2PRPdcPtczybJ9McWYtgIAAACsHgQZAJIAQR5XQS7MvijzvvXEiajRgiw ictpbcEPbz/UwwTYKQQYAAIB0QJABIAkQ5GUFuSm2VYVZ6yOrwnwkuTPTiSir qzz5QQ5uP35BsuK8cyZ36h9MbndBoQZAAAApgNBBoAkQJDHC3Jb1 py kKKXaE9Fe0I6Qq6WAckXdtGnh95guxJcXEiypd4AAAAgAsCQQaAJECQV19BrqZHBdWT1XKB5bpo F2bfkeQ gqw9G24sAwAAAHBBIMgAkAQI8oquQQ5Mv0hBLqvQbsW6XZCbXaoRZAAAAJgKBBkAkgBBXp0gG9V XUF2ZFRk6yJbfRVtKwdan4fbNr3dudLG2t0cXawAAAJgQBBkAkgBBXuFtnuaCaU/XuYjki8G67Cqys6w GnAd8vyaZScBYbanmaN6 9VtnrTejy8PAAAAcIEgyACQBAjyuAoyAAAAAKwOBBkAkgBBRpABAAAApgZBBoAkQJARZAAAAICp QZABIAkQ5FKQZ7MZIYQQQgiZKAgyACQBgkwFGQAAAGBqEGQASAIEGUEGAAAAmBoEGQCSAEFGkAE AAACmBkEGgCRAkBFkAAAAgKlBkAEgCRBkBBkAAABgahBkAEgCBBlBBgAAAJgaBBkAkgBBRpABAA AApgZBBoAkQJARZAAAAICpQZABIAkQZAQZAAAAYGoQZABIAgQZQQYAAACYGgQZAJIAQUaQAQAAA KYGQQaAJECQEWQAAACAqUGQASAJEGQEGQAAAGBqEGQASAIEGUEGAAAAmBoEGQCSAEFGkAEAAACm BkEGgCRAkBFkAAAAgKlBkAEgCRBkBBkAAABgahBkAEgCBBlBBgAAAJia/x/ hkAJcz34LgAAAABJRU5ErkJggg==


when I open a contact and run it it says Objekt benötigt
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAPoAAACkCAYAAAC aDO6AAAZBklEQVR4nO2da1Ab57nH QZIchyHpp3peDq5tD1unDZpY1Nb8V3xhcQoyTElpw2J/aFR4skMpBPHOT1OxySNgy8JF6c4duzYIKgNBmxwjA22AXGxEKALWIBAkjHiZoQA4yQnp43T/s8HrcSutBICA5LZ5zfzG7S777569t33z64kLmFgiI2NhVwuR1p6BrTNHegZuEWS5D2kpasXxSUl kMvliI2NBZswV8hffXUrGnRtqNJZSJK8h 2w2PDqq1s5YQ8DALlc7gy53kqS5Byww2KDXC4fD3psbCy0zR2oNlwnSXIOaR/ 2n1VD4uNjYV9 GtUN3eRJDkNXlK3428nSvHX1LxZ828nSnFJ3c6pgzfoNc1dJElOgwcOncXlumtosfTPmpfrruHA obOcOniDXttygyTJafCvqXkwdPahosk8axo6 /DX1DxOHbxBr2/rJUlyGvwwLR8t5n5Uai0cK7RmVGjNrGVmWxOPWgsqtWbmsdm9rkLLbVPB2GLux4dp Zw6eIOuae/j8SLelsdBtvsi7/bzhxIhkydiX3UfNNUn8LLrMW9fs2BhCmTyOMheP4Hzftod3x2Hlw/pvffdfXGGjuMi3ubtkxlflm8XTqH/qdQc4FgF6vHdvufJXY3XdJ6PWZqjH6blo8V6E1U6K/ORl9VDCyp1VuxJPYYt8Qq3e1KPoUprxZ5PvvBY/wWqdFZUaq2sPi3jy1orWqw38WFaPqcO3qA3mPp5LMPb8kQkvJ6I/TV82 Igk/NtC4bOet4u5NbOW1thCmTJZZx1J5LZ 85Ebb7GkLW JgsJ8hScmPWxuktrspDwegre5p0n0zlewepncu5JPw2j9SZU ussu9yPq5nHW IVnB9q2RKvwEepX/Cu5/blrdF6E3vST3Pq4A16U8cAj2XYIU/EjuREJHxm4G4r2gtZ8l7skCfiQA3fvrNtmUctnsssa7KQIN LLM6 7OWZrm0KNc9KPVPzwmfO eH6Gjr1zdZ4ct2TfhqtXYOobr6BakPX FfDDVQbbqCG8aO049gSr8C//vUvt3zLH6Udd76T7tq32WUXaph W7sGsSf9NKcO3qBrzTd5LMcOeRIO1JVjh3wvst3rDTjwhmt9Eg7Usduy24zfku44M95mR3ISZK7 6rKRIPds52t/X 3LsYO1LuFwNmdZllzucVzOvt19ntnLasM Dt/HMH6c3OXsZL7n9dyHf19uHb76CqQmH2Nn5hsrg59x9XHOvMaSee66bCS8kY2Lnsd3Zrxv9/MFsi3gecU3VuU8c8CjrwmO cDhvd7j5HdsnbqCXtfSjVqWdYy1LTb3upT0E9gSr8B3333n5ZZ4BVLSTzBtbTz9jOsKOrsO3qDr LIM8Og/446uDUCbHYcdZZv1VJRLeUKKMtV3HedyCj9 IQ8LhFp7 2Oudy5x XX2c3QdZcjnv/rztOc/Pt8y17HCSuw7OsbH381lDIM/ja2y8j2f8Nfo KCc4DxPX5GvsJzoGf Pqpz/3XHA9t3e/Mtd2nn59b5vMvAp03D23 T9m9zif3Td bnjHn uejAK03RjC1Ws2XDX24KqxB3VGm3P5ms352NjDLPdgLxN2u93udku8AnvTTzBtbahj mHLXtd2Ywh7Mgo4dfAGXW 183gJ78iT8HG9Hfp65wktt9qhfD8O7xR7bPdsK98Hpb/ rPzt3H3XK5Egj0PCkWvj /tr79m317KH7uO55pycfPvx1TDR8xTvYwWXZ2wmHI8J pqoJp9jP8XzMME4lh9J4tRSfiQJsvcv TwH/vqd rwKdNz99xXQXOIdf66uoKtbne9 q1v7GHsZ 1Df2gt1Wy/2ZWRhS7wCPT09Xm6JV2BfRhbq2/qgbutFfWuvez91G9NXm7NfV9DZdfAG3XB9iMfLeEeehE/qh2C4bsQn25PwSUkOXtmeg3Kv7azH9Tl4Rb4PuX7742 X 34c3ikZXy7/PAkyObPOb3uPvr2WPeU7Hv79ODX4ex5OfUz/nmPjbzyuG/HJdr5jZfc1QU0 x36q58HfOF7GOx6fGrjuTHInOr6AtwVwbAGPu/JjOXuOPP1RV0TXs/6tv7ofHQua4P zKysSVeAavV6pZved/BbK8 PHUFnV0Hb9Cbuxw8XsZOeRJSNcxyyX7I5HF45fNWnu3sx61I3c5u56O/rsvYKY/DzhJmWZODV T7ketRx6XPk5i /LXn65u97O0l5mRx6 Tfb7wG57G5ayjZD5mrfcl yLbn4JK7Nr6x8TMe7H189uVrXCYa 6meBz/jyK7RLXt8nP26a/Hq19 2ScyrgMfds9 7m0vj489d/1FGATpsw2jouImGjgE0mAbQ2DGABtNNNJhuorHD6ZZ4BUwmk9st8Qrs/zSbd32jydlXo kmGk0DaDQx/TL9ddiG8VFGAacO3qC33Bjm8Qp2yt9Cqsa13IrU7fvxd97tnm2vYCfru/zOEr42w2jR5OIVdzvWNuabilPWc/pqz9P33z9g2n1whf/4NLl4xbMedjamCv/2A/63mdE1Emj4Ns 37s3O5rbPjHSOY11jx98dYUyNj7O6 TG1f2 L5ytNVr/eWjbzFj7tx35wdv8dQy8bbA55WvcfecAx59BXzMAcwJlikHC9FhG0ZT56CHNxkH0dg5iAOfKjmf l //VIkmnvUHPlWi0dVHh2efTjtszudl18Eb9GvdIyQ5zVZgp/wtpDVMdtu9bcrBQph7R6E121kOeSw71XmtHxpva3Eu68x2aC3MV7MdOkatZXxfc 8oUg4WcurgDbrRNkqS02wl3pW/hbTGyW67t937aREs/WPQWYagszgYh1g6oLMOQe9ab3W413HbDfHsy9XVh6V/DHs/LeLUwRv01p5bJDnNVuFd VtIb5rstnvbg1 UQm24jhuDX8 aasN1HPyilFMHb9DbesZIkpwGG9oGkHGsFHs/LZo1M46VoqFtgFMHb9Dbe2 TJDmH5A96322SJOeQvEE39X1FkuQckhP0zZs3u4NOEMTcwBX0zZs3A6CgE8SchIJOEAKAgk4QAo CCThACgIJOEAKAgk4QAoCCThACgIJOEAKAgk4QAoCCThACgIJOEAKAgk4QAoCCThACgIJOEAKAg k4QAoCCThACgIJOEAKAgk4QAoCCThACgIJOEAKAgk4QAoCCThACgIJOEAKAgk4QAoCCThAC4J4J ut1uR71ajfy8PKSlpuK9XbuQlJiIpMREvLdrF9JSU5Gfl4d6tRp2uz3Y5RJESBHyQe/s7MTp/Hwk794NpVIJlUoFs9mM0ZER3LlzB3fu3MHoyAjMZjNUKhWUSiWSd /G6fx8dHZ2Brt8gggJQjboDocDxcXFSEtLQ1VVFYYdDjg6O9BXUQHrqTyYMg h9aO90P9lN64d BidymzYKlUY6uzE8NAQqqqqkJaWhuLiYjgcjqAeC0EEm5AMeofJhMzMTJSXleHW8DD6a2phO1OE wS OozspCbaEBPT8ZxxsL76AG88/D8vzz6P9hRdhePFFaLZuhTE7G92aetzs60N5WRkyMzPRYTIF7XgIItiEXNBbWlqQkZ4Oo9GI4eZ m3Mg/jWGlEr2vvYaBF19E3/PPoy/2eXTHxuJGbCyssbGwxGxGx7PPoj1mI1o3bkRTTAxqn3sOzampGNTqYDQakZGejpaWlqAcE0EEm5 AKeofJhIz0dNhsNvSUlqLv5Cn0v/vf6GcC3iOXozs2Fl2bN8P63HOwxMTAtGkT2jZuhHH9erSsXw DTAbtunVoWr0aNTIZLqzfAGtREWw2GzLS0 nKTgiSkAm6w FAZmYmjEajM THj6NH8ToGXpCje8MGmFeuhPWZZ5wB37QJnRs3oW3DBhhlz6BFJoNh3TroZGuhkUpx9Ylfo3bpU tSuWIHKlStRunoNrIWFMBqNyMzMpNfshOAImaAXFxejvKwMw83NsKSlofeNN9Ajl8OyZhXsr72G/zt3Dn2vvYZrTy HacMGtMpk7oA3rVmDxtWrUffUU2iSy9Fz/DgMLyfg0mO/wJXoaJQtW46SVathb2pCeVkZiouLZ/XYCCLYhETQOzs7kZaWhlvDw2g/dAi9u3ah 7lYWNauxcDWrcDNm86Gdjusf/gDGp96yh3whpUroVm1EjVPPomGTZtwXaVC1 gwupubUR/3O3y5aBHO/ Y3KFmyBBe3xOHW8DDS0tLoozdCUIRE0E/n56OyshIDjQ2w/Pl/cGPzZljWrkX3Sy8BQ0PcxjcHYXr5Zah/9Ss0rFqFq1Ipqn/1ODQxz J6TQ3Mvb1obWuD0WxGZ1MjLm/ciKKf/QyFix/Hmd88hY7cv6Oqqgqn8/Nn7fgIItgEPeh2ux3Ju3fDYbfDfOoULNu2wbJxPdpXrEDXS/8FfOVdxz8GB9H68suoWLQIFYsfw9WYGFhqa2Hu60NbWxua9Xr0Dw7im2wdmYGJx8 GGcfOwx5C9 HGUv/Q7DQ0NI3r2bfoKOEAxBD3q9Wg2lUomhTjMMb74J0zPPoF22FsZ166BbsgSWP/4RuHULAPD999/j22 /xTfff48xWw 0L7yA6jVrYKmtRYfNhrbWVhgMBmfIv/oKyjVrcEQigXL fGTNn48v5s9H/hNPYrClBTk5OahXqwMv9IICYWFhbqXpFvZGKMKk4KxyYUmH1Ne2QPafDly1S9Nxd08xlTpZ 4TCWAiUoAc9Py8PKpUKtksVMPwuHq1r1 La6tXQr14N7cqVqH3scRhffRXfOhz4DsDt27cxOjIC 9gYBq5dQ3tFBYxmMwwGAxobGtDT34 vb99GllSKwxIJcsRinBCLcZwxd FCGI8dQ3V1NfLz8gIr8oICYZzJZ0G6lB32u52cvvafjkl/AYqwMCgu3E0fd1PPZPehoM8EQQ96WmoqzGYz2o4egy4mBs0rV0G/cgUaV6yARipF/fKnUbFoEbQJCRjp78fIN99goL8fXV1d6LRaYezshE6ng0ajgc0V8tWrcUQiQa5IhGyxGFmMJ8Ri KKOioHrzTZjNZqSlpgZQoTPUXkGxpEMapoBzdagHfbqCQ0G/Vwl60N/btQujIyNoSt4N7do17oBrpMtQt2wZaqKjoVq HBcffRg1zz6LrqYmWLu70d7eDuO1a9DrdGhoaICtpwdf3b6NnHXr3CF3mSMWI0csRrZYjOz77kO x7BmMjozgvV27Ji6QE2jOBqRLXROSmZwX0iH1urX3mLiW8TZhvN8onFfgMIXC dUl3yXZT18KhZTzUoNTE2c/9jcx9r5Mfxb2MaUHfCzjfXgem/edEbcOf2NJTJWgBz0pMRF37txB5e9/j8ann4ZGKkXdb3 LmqVLoYqORmV0NMoefRQlkZE4JRKhMiYGre3taDEa3Vfy2ro6jIyM4MutW3FYIsEpkQgnWeayvu aKxTj5y1/izp07SEpMnLhASzqkvK9t2Vd6JpyudpzXon4m gUFM4ld6z3vHvxd3fz15e9lhcetvFetnvuOt7WkS1kvYaby/OzHni9/uPW5x/KCgvVNhJgqIRH0f/7zn6hWKJxX8KVLoVqyBJVLl LKk0/ifFQUiiIjkScS4cuf/ATNp09DZzRCq9U6Q15bi qaGlTV1aHp3DmcX7wYuSIR8hjzPRWLcfLXv8Z3330XeNADvaKz5uwFhccVyv1mFPcq67xSO9tIv Sb RG/y e6LG2zPqzD3eHhrdbXlfJML/Fj4n99zf75xnaB YkoEPejv7doFx5AD9e/9BVXLlqFyyRJURi9F2WOPoTgyEoVMyEsWLkTzuXPQmkxoamqCpr4etRoNatVqVFdVoaKiAleuXo W rAylv/gF8kQiFEZGoigyEmdZFkskOLtxI0aGhwO7dZ/Sa3TPq30gkzsMUqnU4xZ9oqBPISjTGvTJPj8FPVgEPehpqakwdXSi5cgRXF62DFeio3Hx8cdRFB mJfOZ2zChTCUlKCpvR1NWi3q6 th6 vD6PAwLhYW4kpNDaoqK6FSqaA2GNBWXY2y//gPFEZG4hzj chInI IQOl996EqMdH503gBvRkHnttH/ltc7mtg36 / W9XnW0uKAJ9N3/ivnwve966 /qGNdGt 2SfP9Bbdwr6dBP0oOfn5aGyshLWy5dwcbkUZU884Q75SZEIhQ8 CENREZra29HY1AS1Wg1bXx9ujY4ie9kyKB95BGUFhVBpNNDU10On06HTZoOtUYMrP/0pzkdEoDwiApciInA5IgIF981HmzIbKpUq8I/XAK/P0blXeO83wHy zva85fW63WXeoGKupBcUgb4ZF Ctu9d E7RlHbf/N Mmeevu3ubjzTgK rQS9KDXq9XIys5Cn6kdX0qlKHrgAeQxV/LTUVEwFBQ4Q97YCLVajW4m5K6P0E6KRChYtAhV585B39GBjvZ2dHd3Y R/v8VISwtUC3 CyvBwVIWHQxUejtMPPQx7mxE5OcrJ/cDMlLkABb2ZRASZoAfd9SOw/b29OLdhA/J 8APkikTIEouR//DDaKyogKa5GVevXoWttxe3RkZwfNUqHGZC7nrDrXjxYuhUKvQMDcHhcOAf//43RkdGULFoEerCw1EfGYG6 fPRtDcFww4H3k9Onp0fgb2gmIafSCOIuyPoQQecv9RSVVWFtqNHcXLhQmRLJDghFuNzsRinli5F ZWkpbgwM4NbICI6tWIHPmM/JTzIhL4qMRHFkJEp//nN06fW4A D26CgubdqEKxER0IlE0IvFKFiwAN2qSlSpZuGXWty3tXTbSQSfkAg6 9dUS9avR 4Pf4ijYjGOSCQ4JJFA dRTaC4vx1HpcmRKJMgWi5ErEuGUSIQCkQjFzBttFyMiUPPEE g5cwZVzz2HyvBwtIjFMEok0Eb9ACWbNtGvqRKCJCSCDoz/4YnBxkbk/PRnOBEVhc8kEmQyZjBfjzM/zur6rLyIeVe9LCICVyIioAoPx5WICFwND4dRIoFp3jy0PPAATj30EBw6HS6Vl9MfniAER8gEnf2 npDrz8pD70EM4GhWFg0zAP5NIcMQj6Pmsq/llJuRqkQjayEgYJRJ0zJsHY1QU8n78Y3QVnUFrayv9KSlCkIRM0AHuH4c05 Uh69FHcezBB3Fw3jxkegT9JPMDMeyreW1EBBokEjRLJGifNw GqCjkP/IIus6epT8OSQiakAo6wP1zz4ONjSiWPYMjP/oRji1YgMMSCY7yBP1SRASqwsOhiRRDP28etAsW4Oz99 NczLNwGAz0554JwRNyQQe8/4HDDZUKde/ GVkPP4KjDzyA3PvvR55EgkKRCOdFIpSLRKicNw8l8 fj5IIFKIuPh7XoDG4ND9M/cCAIhGjQAe6/ZKqoqIDDboe9sxPXS0uhO3AAF//we Qt/y1yH1 MkphnUf2nP8GkzMag0QjH0BCqKivpXzIRBEPIBt0F/ZNFgrh7Qj7oLujfJhPE1Llngk4QxNShoBOEAKCgE4QAoKAThACgoBOEAKCgE4QAoKAThACgoBOE AKCgE4QAoKAThACgoBOEAKCgE4QAoKAThACgoBOEAKCgE4QAoKAThACgoBOEAKCgE4QAoKAThAC goBOEAKCgE4QAoKAThACgoBOEAKCgE4QAoKAThACgoBOEAPAb9LGxMZIk54AUdJIUgBR0khSAFH SSFIAUdJIUgBR0khSAFHSSFIAUdJIUgBR0khSAFHSSFIAUdJIUgBR0khSAggk6MXNs376dzkMI4 O88CCrovb295DSblZU16aAHu a56ETnQXBBD3Ydc82pBj3Ydc81KeiMNMFmRgp6aEhBZ6QJNjNS0ENDCjojTbCZkYIeGlLQGWmCz YwU9NCQgs5IE2xmpKCHhhR0xpCdYAXbEBYW5jY6Rc/aXoBtYdFI0buW9UiJDkPYtoLg1z0W2AQLrfPgOZ486/UpiHa38WjvOlfRKdCHwNhP5jxQ0INpwTaE8QR5POzciVawzfMbQfCdc0H3ub4A28LCsK0g GM lfNAQQ azlB7TRx9CqLDtqFgbAzsiaZPiQ6pK7lLYQWdr01oSEFnDLmgcwLNVo UaI/JlbItJG8Xx8bmYtD5Hjuv5l4vr/QpiHav5zuXoXMeKOjBUp CaN7wsq/04xPsXr1lDK3zwA0sV39B93zMs1ywLagvqyjoITHBeJzMFb2A/QZRaHnvBX0qV3SefTlXc8YgvrSioIfEBONzcq/RnW/cBff2kE9hBz10zgcFPSQmmA 9wuu8tfT1rrs JTrkXqsLNuhe5yq0zwMFPdh6fI7OvcJ7T8yCbaH1Oa5wgz7mfftOt 7BN2SDfo97bwV97kpBZ6QJNjNS0ENDCjojTbCZkYIeGlLQGWmCzYwU9NCQgs5IE2xmpKCHhhR0R ppgMyMFPTSkoDPSBJsZKeihIQWdEQCysrLIGXCyQQ92vXNVCvrYGLZv307OoHQeQkPBB50khSwF nSQFIAWdJAUgBZ0kBSAFnSQFIAWdJAUgBZ0kBSAFnSQFIAWdJAUgBZ0kBSAFnSQFoN gkyQ5d QNOkmSc09O0EmSnLsCQBgIgpjzUNAJQgBQ0AlCAFDQCUIA/D/7fNRTa6YJFwAAAABJRU5ErkJggg==

gmayor
01-03-2020, 10:29 PM
I assumed that you had already declared what 'Item' was You have to tell they macro what 'Item' is e.g.


Public Sub DateRed()
Dim Item As Object
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Set Item = ActiveExplorer.Selection.Item(1)
If TypeName(Item) = "ContactItem" Then
With Item
.Display
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.collapse 0
oRng.Text = vbCr & Date & " - " & FormatDateTime(Time, 4) & ": "
oRng.Font.Color = &HFF
oRng.collapse 0
oRng.Select
End With
Else
Beep
End If
End Sub

Witzker
01-03-2020, 11:10 PM
Great THX

I added
oRng.Text = vbCr & Date & " - " & FormatDateTime(Time, 4) & " Anruf: "

is it also possible to start the Telephone dialog from outlook with this macro?

gmayor
01-04-2020, 05:11 AM
If it is possible I don't know how to do so and can find no on-line reference to the dialog.

Witzker
01-04-2020, 10:11 AM
is it Possible to set the cursor at the end of the inserted date?

oRng.Text = vbCr & Date & " - " & FormatDateTime(Time, 4) & " Anruf: "

to write ther a coment

gmayor
01-04-2020, 09:49 PM
oRng.collapse 0
oRng.Select
as in the original macro should do that.

Witzker
01-10-2020, 11:47 AM
Yes

The text is inserted in red and is displayed at the end of the field even if there is more text in the field

BUT

The cursor is in another fields on the form !
If I start writing it is in another field

How to put cursor at the end of the inserted text in memo field?