PDA

View Full Version : Write the senders Email to a text file (fighting spam)



Witzker
11-27-2020, 04:45 PM
Hi
I found this macro
Export Email Addresses - VBOffice (http://www.vboffice.net/en/developers/export-email-addresses)


Private Const SenderFile As String = "c:\email addresses\senders.txt"
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub ExportSenderAddresses()
On Error GoTo ERR_HANDLER
Dim Sel As Outlook.Selection
Dim Addresses As String
Dim File As String
Dim Hnd As Long

Set Sel = Application.ActiveExplorer.Selection
Addresses = GetSenderAddresses(Sel)
If Len(Addresses) Then
Hnd = FreeFile
Open SenderFile For Append As #Hnd
Print #Hnd, Addresses;
Close #Hnd
ShellExecute 0, "open", SenderFile, "", "", 1
End If

Exit Sub
ERR_HANDLER:
If Hnd Then Close #Hnd
MsgBox Err.Description
End Sub

Private Function GetSenderAddresses(Sel As Outlook.Selection) As String
Dim b As String
Dim obj As Object
Dim i As Long

For i = 1 To Sel.Count
Set obj = Sel(i)
If TypeOf obj Is Outlook.MailItem Or _
TypeOf obj Is Outlook.MeetingItem Then
b = b & obj.SenderEmailAddress & vbCrLf
End If
Next

GetSenderAddresses = b End Function

Pls help in modifying the macro that only @domain.xx will be written in the file
In combination with this:

Auto Block Unwanted Emails with the Blacklist in a Text File (vbaexpress.com) (http://www.vbaexpress.com/forum/showthread.php?68089-Auto-Block-Unwanted-Emails-with-the-Blacklist-in-a-Text-File)

It could be a great solution to fighting spam!
What do you think?

UPS!
When i insert the macro to module 4 this happens

27509

What is wrong??
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAq4AAADaCAYAAABn08D4AAAgAElEQVR4Ae2d3ZGj PBeEiYuAqPqy2BC42yj21gFsEO NQ9gg Kol2rTP6AeP7RkzblftwiDp6OjRX1vIMPzvf/9b/M8M3AbcBtwG3AbcBtwG3AbcBl69DQyLPyZgAiZgAiZgAiZgAiZwAAIWrgeoJLtoAiZgAiZgAiZg AiawLBaubgUmYAImYAImYAImYAKHIGDheohqspMmYAImYAImYAImYAIWrm4DJmACJmACJmACJmA ChyBg4XqIarKTJmACX03gvCzLOM7Lcp6/Omvn9wIEXP8vUAl2wQQKBLrCdRj/LsPw6/JvHH4t5/lPwVT70jD9t5zn3 1ILxiaBq/pv0v55 n3Ms7/LcvpdgbfUbzs/7wMw5D TdO4zOP4FFdOy7IMw7TMY7dZ7c5/GDffWQYcT9N1HsN0Ws7zx3JNJ/iUy14K3 1IIWIu75 tbYy/CrHuu5Trb uD0/R7mcfH96Oj9k/WL9rDOJ9TXT ynmHzkfY 2xq o31HX3v9uxce7R3h71epf7D6iXx7beDZ/buXv8Nfk8D17F/wEZ1lGiDS/kuhnEiX899C7O 5NI3wJfv3aA9GCG4p6/m8LBDzXylc7ylfHninC5b5dH6acEUmaC/zuOV3yfiOkwmrXslyNjKfl U0fRSprSyeOQHBH4hJtJVH94tx/nf1RXE /fsgXO9pHy1mRwgD 2EYk7jkJLecHtf MN5NA yhZb/u55ntW0vd69 9cLV1hPNXq/9X5BvH51vrtZX 2f37Vl8d/zUI3Cxc4TYmUwo3rNRgRRarqdOM89/LlFaespDMk0lesY0rrkx7SZ9Wx3LceV29mnFtzKtaWO09yWpvbtS/LyteXBmmb/D1lISmrIpNWK36t4s 7J9S/Hp0CnnmnVfDctnBCdexSgYu6VzYwGpMP8qK2p7y1T3LIZjQTmklEjl9/GQ 02VVck6CMMdFWqxWYpUW4iCdp9XUbRLX9CNWQk9Ycd2Eg4YjvdqHN1hJwnWsak0zzsdlCnlwYCt NzhQrtPGxhPlKKS1Cev7V7Ol19gf4Ett4q37VRu0ctk/pTsXHNrunfbCPfaZ/7mm/aAnsn j3eQzI40GtTLzO9oW6i//2rnJmBiM66gL aIN6az/zz20MeeBuwIj2Kbf/EQd3CiakLQjUWttBOWrtJ3GBzXFYhjHbnk4f23ce33L/S/1n3voO7N/bvsm6duzlr Xr9e9SeK9/q/1UPzL wOdcf9tdlzHcMeqF32sfPrTq/5782f6/c3zt V9rN7jOvhf7Lr84ajj7J Kyj2q42mB6zYPpmbbll8N PoGbhWtq6FhxlFXIPGH8yiLv/C8N5sv5eqLFJBgndeCN12FLxSLyU1uYiFWYIri14jRNWI3dfMFANk/7bvPDl5LP2izGwCLZH2E/54nyJSF/XsVs2DKBcBUmU1pRu77l3Cqf lI6zwNTnjAvEwOWjdfPNGE1c/s789kmTwyuSUies1gd5ZY8rkxJBOQw5qVbBXr24UZuP7j9Py7L by2n80n3S5QEzStyQV51ML3 EdWpSO8zPXzL1Gcpe5zvv36Ldnltcw0fyHEFx9sVdH gHi99nFv/2y23/Hvcj7luy 8G9HrMyzbI45oeSNWRM9zmkinASvxuT3CfmqvsgKL9s34zB MW8I1tfPKqmur/WBiHuHPeV4m9KMkqk/JJ07OqZVLf4TQYxj9S XobFmotW 1UTpv5Z/K3ejfvXDm1 rfLX4st37xntIdo23aQrlb4ffahw t n9E/t85vvb8Zx22jlxYKMW59AEsaLA/SH9EmlZ6sGd/RfrYv0t5 trPJ7CNAJWyouEMw7Zimfa4hv2dGJh6k1UUqMwOA ckk30UgmisXNFJq5rY3xfzr2wVSGnXlc6Udt2rOw0Qhv2tBb1ywb6KbJZJbxmj3OpvtJn4rivKe UUWwuTat54wYb57jjrwZz55JVW/8erKEwY2nUiz//k2vZ4zb0TnHto99pGuZIf2Uvi6VQC PFK47vVPfYnn8F3bQKp7aZ976jfabP39mS82mW97X2ytf7bab67ra7t78mL5UJ/a7vS8Vs9Mu cI9rr6vydNLU6p7fXaT az9RXuy9Y lWyM2x2PAfvPw8QOn0r5q6 9cI2r5638S/0ylinWk4Yzn5IdhKW81zs5Wvc6/uT s/GZwGf9Eg0brfBH2GcZanzvzV/bAvJSVnpOP5TvnvJFm7TDY8t/xukdW8ITafFlEXfSaqulvfS9/B3 fgR2CVfd41pClDvY9QQW49UmRsTj5Ag7KgLQqcbhz2VFR Oq/ZqwQ/q8Aqax95/nQaJeLoSrv7R8i3BlGhyx8DLN2MP4uBVXtY9zMOGevcxnW12NcfH3PQPrHvvIozRAqy97BrbaxE I7pfC9/tFG6chb8frF6DRd1x/T1eqX4XuOuf62PedIU2v/tHdP/2TfLNkq9Y89edHWs49b/aZ1xbuyy9zRVzZbm/2y6cynLlyRHqtJ59P21ILY32i51H4ZhmMvXOPyvJd/qV/GMt0jXHv86CePuf9gj3552orhj7QPW3nc3OqffvH4mfxjfStzPWceyn9v Up2aE P0X8Na533xmcslkC0juO4nAtfynrpW3k77D0JlEcAYZE77PVEKcHpNHeMusBDpJZwzR3wz1JabZ 2wwrpuO8APU7D6qiuYybbcrofwmwb4st6qn/5bb8VHr/f9DRGqq8npVqP4EH1Ot9p1Bbmz4or0Z1mhw4paFMOaRyxfqxTgGidGDHz6wybcSs232sqWWgNra huNW4mw2LOPOL2Bdc/A1pu4a F7/CuTyV8C4taAfAdh 7Hgnvpt2Y9f3HL9Xfe1Xvu4p3 2hGuqX l7mPjww0XtL7WyfdX1 Gv80/mc9pzqqibqrLVVgL6W2lCr/ajIQB3EFVeE5xXELIbww0nsh1XfWnkzDMeSbxpeOu/l3 vfvXDm2erfLX6pXON8JXYggq7Gr154b3zrpGcZki FOz54XJqKsQ/ 9fLPHfqSjbLaw7fHD4bV5iWj9aTnP6L1 oc Mi5vicGXtdym0S65FQLlQfuOX3Za6aO//tsEQKArXPVxWNgmoHtbU0OUbQRcdaKwrIWXbtVjgiytVOE67fJRVNEPiL2rHz/JrXZ0H4hP2hjHdS u7HvtNQWIRbXPPX1Il 1vjysq/TgLeYMJBhD6wckdq2XjtG3F0P2E9KtVPsYpHcEfwnWc9FYbqhwh ZP93368Mo7rXtPlnCZD3sLDZJr9v360VLoNtN7qxLdq/DhLH4nVsp/bx ab5kX/dH9rvNVUS89bjb1w5NHyjz6Ujphv2CbYHnN 2w8J0Vf21G/JPq7BHoTrh/YRtrnU2of6w3bHtkj7ug2Icdg/te/V2m/KY93qwh9nsW3XyvWV13P9yo97xuFqhXPjUP9xFv1FWeOqW639nBf0qdy2IVjZdzBpYzJHW0ef4j n xg8Xx/l0uaWa6 9j/7ilfdP32rGVf2KTvoxkH0r9u9X/a/6rMK/xo/DBl9YP45dsFeiF32tfuZXq/578lf13ja89/1Mb6Hyxg1i/ vEufw8hW4Fq5YP9Wnpl73MTUAJd4aqRfW4CJmACLQJ4xvErCdeWr58Jg9iIK0afseM0xyTg j9mvdnrn0XAwvVn1adLYwJfTkDvyqSnHtxwN PLnXWGJmACJmAChyZg4Xro6rPzJmACJmACJmACJvA BCxc36euXVITMAETMAETMAETODQBC9dDV5 dNwETMAETMAETMIH3IWDh j517ZKagAmYgAmYgAmYwKEJWLgeuvrsvAmYgAmYgAmYgAm8DwEL1/epa5fUBEzABEzABEzABA5NwML10NVn503ABEzABEzABEzgfQhYuL5PXbukJmACJmACJmACJnBoA hauh64 O28CJmACJmACJmAC70PAwvV96tolNQETMAETMAETMIFDE7BwPXT12XkTMAETMAETMAETeB8CFq7 vU9cuqQmYgAmYgAmYgAkcmoCF66Grz86bgAmYgAmYgAmYwPsQsHB9n7p2SU3ABEzABEzABEzg0A QsXA9dfXbeBEzABEzABEzABN6HgIXr 9S1S2oCJmACJmACJmAChyZg4Xro6rPzJmACJmACJmACJvA BCxc36euXVITMAETMAETMAETODQBC9dDV5 dNwETMAETMAETMIH3IWDh j517ZKagAmYgAmYgAmYwKEJWLgeuvrsvAmYgAmYgAmYgAm8DwEL1/epa5fUBEzABEzABEzABA5NoC9cx3lZhuH63zzdXujptCzzeHu670xxXpZlGK/LPg7Lcj49ziuYIt9X5FOqf/g79ZvO4yDtsPSd7WuSPjKNyzKu7Xw 57o9faK/sMi99tEKZ/5sXzyiDb/DR9mg7Knc6NSFT6n94BrSnedCgp2X6AP6C tjbz9n/O9qPyziDA7rOIj2vQSG4yRj2B1tHfkN01pPa bkh3oocdsb/hn 9KfVb3r5k2GpfTHMRxMwgZsI7JvBMJgs6KHrBxP1PYM57TzqCHGl/j3KLuyg2CrSMGYnYSI8HpEfJqnSwPwI2/faiHzBIE1g9xremT7mvzPZl0RL9SaT9em8CVc4gPB7hAcL0WsftfB4/dJ afgFjs uX4iGz45X8O2zaYEWvCH60Lcpcm5pD6/WfiBidZwCH5YntS35 7NNC0I4fmI73ht L3/kwz7Takc9/6K//tsETODTBD4nXHUw5aoEBjN M08rG6uw42Bd sbMtAzTuFwVwrXaN3oOSvxGzCMHUmBJg46sCJRWDFr4kL8KV8TVQWqPfS0nyoXyxMlQbao/rfIjHm3X O/xT/MrnVNYRB/xN5iTt/oCOwwHc67YaNtgXkwHW8pnT/1qm9EJlbZx1BVR/dKx1z 1Fc8vTOBs4ZPC0f7WFatY/r31c8mnkAcu1cL1ehQEyhd1qCzZPvf4V6s/5N1qH5o/ 67GR7n25F9BcrkM/1iey8X1RMtcaj9JmM3bGIT6u WOC8uofKMv2j7RV7hiDxdT/X1j 4m8onD9EH7jF7VYv AU2 mFQ OOnbZz9WkPf41fOodt1l pjbT867UvhNfmN/rSah M46MJvBGBzwnXuArBzolB93zOkw2O qkNLPE6bCVxKYnVFiYhDCL6obDSazxHp0 z33oBbk0hPeOWjsmfgEmv9exHf9NAeoNwhU 98rf49/wrlTleA18Kizhwc1BnGviicRCukz14aPgePq36Zb6xHfF6bKvgnybGtX32/KOd1hFloDBlH2B82Ac7ip0P5d/ZPmvl03yUq15n3SXRzID1mNojVgPRJtfVQe1fvfbTqz/4rfZi 4Abrfrt5R KU/wTPkaxGCPW MK31H7X9oJDaj8oyM4P7lghf/LVu0OXfFf7acVexhuEf2f7YRHBAX7EsZnhOCY2ha0EGieegyX7BsJQV6V2euEUDax/t8Jb/Cvmri6n9rnWj44dGqmVP K1wlvj yVdpX2oDz43gTchICNko8To Jz8cNSJCMlKk1E0d mAMYATAQeGcGsuDYaSP1YjYv61iQ9pKSjUf5zr5FFw6XIJZYsrrry2x34a6C7W6ic1PnvKX O/x7 6R1sI ZZ8xDWtj hLL3wPH a/efTxrOQbyl aaFXI9Pz7mFP7Skl41PjcUj l8qkntXC9XmOtfqjA0 u1/lOzSd/28K3V7578mU/rqPVdi6ecNA58UyYIi2XS J85B0PyxfimQi7mpf3rFj618tHfXjjiIT98kSh9QUJYagtwcOdHy8IkyU5hZbXnXy c9m89wkcdQ9CWtD/TXi//Wji5af1H 632wfx9NIE3IrBfuLaEXmkAihBrHRfxEIbOGgcJhEE0n THEYyr9msTH L0Jla1UzpPPgVMWpae/RSO0anzUZsadU/5W/x7/mletfMW31gf0Zde B4 rfzpc4kfsOukw7gqZHr Mc0tR9QZ 0vP/t76KZVPfaqF165rWohtTJzFL4WduxO9 uuVH3606ncvHy1PPNf6Rlj0iddKggy PVu40l 0V/imK47R19i/9vKBnVL5mHcvnPGS0ArCEmlTP9sxztEOjrEsuFayj s9/3rhmu8t52g7FJU8xoWMe/zbM77T31L7YJiPJvBGBIIiq5RcJ JSlNIAFOP1BhYMwHGS4CDGWylpNQtCNkymmg75YJU1jYAQLuHWdPSr9zfKpgNV8kmESc9 DEdZUNZYhhKfveVv8Y/598pbCm8JC/U7CaD1hyi0g3Ata/Q1 lfi06pfzac0MWtaxL3UH04KIib6l2PV/48TD8yqWL61/LWclHMpTi28dF3rE HpVjgKvn7RU46xfmLeMTzWn Zfah8pTxGHiP/I/gv78FHFJ/LQNok46qeWEax0q0AagzC rLw07mfOYV99gf1Xaj/RP7DU8TCtwMp4XGILLugnEH6RG8ZCXWGGfRXuZFqrn73hjHfrMX0xWMcKptX w2uf8S NRev2OthJbSvMDZF/bB/M30cTeCMCfeGKjsNvmjjqBABQHJA0jg7EpfDSAIaOrwMiKwHXaRsDevoBWPADnZlbAnQSpg0Mhr SB8L2rAxhYaFfT60CLPHr2Mbhrel1B7vHplb UXvnv8Y cSsde/afBd52UwJb1A/GjvsMnzPXkcCWOGnzgU6t S VHHjpBXvEX0bHXvxIXXkP 2DPNcqVJdxU1e 232k vfK1wzZ/ 8Qg Gt6sn07/ueKLrURyh6TVPsiwVb I0 JDG6WjtjeWm0f2kRY/5ovycBwojS lvPdeQ/ K7YfjyyPqp1UNgLR/1p/erYWRofwZdslQHz0X6JcG0fTIu4qR/t8I92Wa88xnzUlz3nsWyc9zQ/1JP zbxxZP69cK3j0vzWah97yuE4JvADCfSF6w8stItkAiZgAiZgAiZgAiZwPAIWrserM3tsAiZgAiZ gAiZgAm9JwML1LavdhTYBEzABEzABEzCB4xGwcD1endljEzABEzABE6gSyFtnx2UYhuK/SffhVq04wARek4CF62vWi70yARMwARMwARMwARMIBCxcAxD/aQImYAImYAImYAIm8JoELFxfs17slQmYgAmYgAmYgAmYQCBg4RqA E8TMAETMAETMAETMIHXJPD6wpUPEcfLCfiwZn14PbjGB2Tj1ZX4MH7pgdg5Rv9/5o/N7DFfpG6FM399MDXO XDtfu6vH0MfsF0qF/m06u WUuKB3HwYOG0r370PiI8PGC89MJz5tPxTH0rto5WW7eOe9tmyXwpDfZXqqRQX13r1W0u357qyu/QLVMxBPtF/loEvEGgV4xXaH/zTMtzaflk vqgB5dcXFDD8CEeU4bPlv6d8z xf9Ks2PzL8Ecfv4vcI323jcAReX7hygMegwkFWJ3pM/rO8chBv4aFwRXUgXON/topSPqsgLtmohcfrKI/6V7L11dcgBincPpM3y4TBK4q9Xv3dkh/qP75dLdZvqv8bmnX1lY5w/IZPrOe9SaP/e9PdEy V QYDrfq9wUw1aqndVCO/WECsv6O1P L8bPtF3alYxZvz0hejG/sP/XjG8d7x7Rk qc1n9q9Ur435EX68Oh9l5XMTwHrKy1NAp8brFiE KVxVHF0G3MpAyY6rr2xUkZYGDXllpw7CCueSj16U81q4Xo CgWXDSoWWD3 zjHv8w SBNPiHSQP5ID3ypm24ynhcWdD8mV7jI82e/JEP/adtomEeDId9lo1x9h4xwMKOfpg3r0E4pDpcfWe9M08y4aojmKhNtDEtA/4GT/LRL0nME0fY1XQa1jpP6WB/3OqP7RPlRb5ql3UI/1kWlLeUHvnG kNZYzts Ycw5MP6U1 Y7t4VHZSJ9UObelT76UsfKmX1C3xa5Uc81l9itvaVUjmy1dv JxumOlr7o9 pHYYv5pf2F195u77SN7WtkAb22Kd66RE3ts84/rK9o77S66THVRivbaDVPzn2sO/yGPs7r9faxL3tj4xrR7YhlKXkg YPPrcsfFzqFTDCZw fPfxr/JA3wr6zf4Yi 8 fQeD1hSs443YKJjZ2NE7srIPUudaJH53kLJ2UnYe37xBXBwcMCsnwagxJ8e7w LkMADFg/bsWzvzRgSmW1ATLhMFUzxmn5x/KowNxsrHygg3kr GlwRETTGS6N3/ES mR8SoSlCeu9eovp z/DzvRT XLAVRFUK 8cDtNlmv24KnpcVnbU RNr2v1z/Dakf6X2mf0jTbUR6RHuyqlR/z0JQYQ1g/Sltohw0vHVv1eyr3W/60rjshPyxPzR95aH8gmCe81v2758WVHhRa 0BXEVsx379 sP7Y9HNXfV29/LOelHnlhPYJ/HFNTe8A4WvmypmVupUcWvfENcWAPXOkHql77pJ6X if9DUW7 rNWFqTV ry1/V1lUvkj be2Z23biH7xaw3/bP/iF1syVFd6fHr8r/xUw6v/zfHpyf0zuOM/fwaBYwjXW1jHjo2OXxNuGAvYoXXiwXlJILUmvMsAE5zV62lQCuH4U/2Ig2TPv5pNZtMqP PUBi71q8YHg1oUfsqbedx7pC9RFMfyIR6YKEctn06q9AnhiJ/SBlFDeyw/VjtK5dN6pt09x h/9C/5DnE6r4IT5xDwcKzzxSTaQvxSGbOl8v976hf KB K6LLFj1drwhW attiSo3f4lcqa4kJ7X7mGPNPeR6o/bHMtfbLvsF4OLLMtTTKuJUerHrjG/JTe oHzslb21/sn6kPwUjjUyoLbN/T/hrZXYLgluZRFN539q9LZmC5ftHVaz0 Lf60U KHMLYVxlNbqe7CeKvhTOOjCQQCP0 4ooC6MtfqOIjbE34EVuuYvfBeOqTHYIKBtySKev6piKEveuyVH3FbA1cvfwy0nDR4jPtQ1Z/PnnOSo2CjnVg XI/XdDAslZXhMR1soS1xxa5kW/1ofbFhvHiMedIXxqNIQz3gfF5XwBjeSh9tIU1psqCt0vGW oVt HPrii7LyPxZJtjTSZ3hGp9xGaZlLpVVw5nmnmPMH7biNc3z1dofyw6fS 0X/uqXQC1fiS/CUT8Uj630iNsbXxBH eFv/ezpnyXmagPnpfLf2/5iHqW/v6J/xXx1fkRYj0 LP22X CGs1RdK7WdPXszTx7clcHzhGgeuONi0Og6qHQNHacCOTaLWMRmvFl66rgMFwvVWCgZy9afnXwzH bTPY4MSh SeBjL1i4VuuTi6Ij1UQCsRon XlMU08gC4fLZ9cvvs0DrgwCH9ZVvwNV1KbCNs94BNEXyw7nUI50t4xKQtOcY23ItNqhbBlWvpRs 63x4nn0Pw7c BtbV2Ab5/HLTS89yqUroKjPW4Rlr37BVfmDUUlsxnLr3/BJxZGWSdsm0qQ62bnijPiaPqUttAFwxZeuz3zhUl/p35HaH sB5Si1X/BDfbIPkCnvSKHuUn2v/Sb OGtP lK 9AvH2CcYtrd/ahtAOXV8o61W bVt3tr aL92fHb/6s2P8KvHp8Zfy1Tjh tX4wPGbJl/NO9n9E/10ec/hsDPEK6Y2LnalyZl9LRV1PA6Og8nKFzTzoPBl/GQXgdidHyG6ZEDdys8DZLrj6Y0Lc6RXsM/6x/KqZv34b uEHKgRZ4ISz9wCOWnoGUcFTrJfoEPBnO9zcfBXXnwWqqMB/yHQS4OgpEr/ta6Zbase9Ybr/PYGniZB9oF bFsWl7Gw7GWD/PDcU/9o/7AWfPj d70mBzpG/jB59RP1JlwznyZjnlqeXENdRL7X2w/wfTlT9YJ89Cj1vNV 8akd2P/ZvnZ/mP7YP9nGS8Odk5q/kf7MMO49D2a/o72Bx 0PpU//Ux9DvW8tiEwjPVLfkivYyfs35oe9tVGyT9tG9oHSv0zsV/FKvyL/pfsIx7Lj/T3tj/YiJ v6F/IE WL/VPLhjit8b/ER/mXwslP6wZp2AcQrn1E2xbGVw2Df2xft/bPyNx//xgCxxeuP6YqXJAuAQx8n1kVg2GkjQNiN0NH HEEShMjxNWz28ZR2x/Y3CMY7k3/4xqgC9Qk8F39s mUA1 NgIXrq9WI/WkTuHUi5Ld1fMvHv3sm4bZnDn1VAmgzrH9dzYO/XPmKq1CPKsuR259yw0rlrZ9709 an Mfk4C2k6/un8ck9vZef2I0entmBmACJmACJmACJmACJvANBCxcvwG6szQBEzABEzABE3gOgby9dlyGYSj m3AH5ll3WZ5TJFsVAhauAsOnJmACJmACJmACJmACr0vAwvV168aemYAJmIAJmIAJmIAJCAELV4H hUxMwARMwARMwARMwgdclYOH6unVjz0zABEzABEzABEzABITAawtXfWAxH2cTHyAthbk65WNumI 4bsfWByXsejaQ fOZZj/em10eFsCw4xueZ4rE7Jf/uzf8KauEP5fmZR YUTH64pA8Ax NS0huuPsS670KN331W70utdce6d/tfljm8Fe0 yu d2v33vevfpTeBAxJ4beEKoPh5oL6pI7128wa38VYOvr6UFQQxGK8xrHaEHyVhWIsfr9 TPvkLFbN IMrT8 54Ycfxnvx75uEPxCTE354vAz17Gp78FqGS6l9eGYi4kY mP/o5yv/u7R/iil88UZ/4IvPodvbMdvLq7dP995m1b9smYAIPJnCDAnxwznvNlSZuijZdVeVEhvhYneLqH8TU1cQf3qAEPc hXziFdbTUnCaggmPaWAfFK6TGhpTzl9alpRQ3CWj6c Eo2dFWuJaxLaZFFmrTklaDxAdDiRvUUtvlKv5IP96yYXvyGo Gj9c8VSRy1vlH/iTFf14oVWzT79YtAix/yRlow4ettNS3dYftBGF8JW LA LccyZZpINzfrf1H4apMev13T/2z/lI7kS9JyBd1yvAT2lJoP63 s6d9ttKjznv pzjhBQu33pEgT7AstVv3X/Y H03ABF6AwCFaQccAACAASURBVDGEKyYU/UeRCoClwZZCD GYGDjR429MBJo xUGk9YNwFT68jsG9NKgzvHespYev8O8sPqj/sIu/Wf6aDzX79KsWjklJV58TL5m8mb51TP6u/mOSV3uXfNfwW1fMkW avCEeVxGprBAeeUVfKU7JGa5EGxc/Q2Jch3jh 9nhi9YB8j6tXzRgF39reDB385/In3XPo7bfd2j/UbiCsTLQuiz1317919KjPiFUkRfrAe1A89jTf1rtc0/6lv XdntH/0r rendfx/bf2/u8E5gAibQI3AM4apCMomD6Xri0omhNpFj8klpw6op7VEUYLVC8yPBywTBCzcea njJAyziKs sHw1G0zTEkyltCg7VxJZfh65ItkrJnjHLwbqO9JzxQq2wZcisGe7FF4SvuRTio9rpTYR45b4IE6 sC7VVak8aHvP4zN8xf7ZXFW5a/lL bGMlf2mP9f6K7R/Clf7hqO1rj/8lJqyLVnrlBRvcV846Qfie/qP1w3xx3Ju 5T/s3NO/UrlkTFRRTl/vsU8bPL5b/2W5fTQBE3gYgeMJVxSdEwcx6MBemiQYHtMhPSZFrpiVbDMPpG0JQ8arHWvpKSo0XfSzVCaNj/OafcarhacVFkb6xBETnYoKnHOCj YwUcOPdLs9Bt7wd2kFriW0Wf tLGp8cF2FktpSYUPbGs5r9xxj/rAVr2mepbbC8JgOto7Q/mN9K889/rP8mo7nrfRav7DBdq0c9/SfUp0w/z3pW/7TDo6f6V/uv0pw35fc6xT ywRM4IsJHE 4YnBOk024nY3JYW7cpsUEkfZ wcD64cTEW4VpNQBCNthGdExWzxKuvIVNv JEF/9mPD32/KuFY K6p1xp4hWm8En9xbnyBGNdodUylM6jsEBWMT3y4AokyolVMN2usGfir/HB9Sv/0RZkhUrzTu2p0AaRf0vQl8rNazF/5PFu7R/lLX0xSbxlm02t/9bqv5ee4agL2CgJ1z39R9tIbJ970tf8h1/39i/3323sSPX94P7LfuyjCZjAwwi8tnDlhB9X9FQ4EAXjliY4xGkJE9qHIOKPayiEMGkyXI 1fOgPj730aeKZt9t9up8SNhCu dKvvfZ7 cOOrrog/yQMMYo3PgjW26T0S/PDNfg/CcNYvkYWKQj2YvrIHoKFvkT76g85qhAthSMe8kgiY91fjTRsYwjXNojJH9eQN9qPhqEQ5EtGvTI zXPOj7zHvGDeyYfhPbf9aR3v7r9Z/NT3uJKz1CsHKukDdMg3tsH7ZBmL/abVP1E8rPX3Q me SPvZ/uX y55xPfY sv9uOfjMBEzggQReW7jeUlBMLFEw3JL u Ji4rlV0HyXr863T6A08aGOn9023f77deMYJtAj8F39t eXw03ABC4Eji9cdbUCqxJHEoEQNFxJwWqdP8ckoPUYV9u4slVbCb23xG7/9xJ0 ncn8J39993Zu/wm8AkCVkufgOYkJmACJmACJmACJmACX0/AwvXrmTtHEzABEzCBH0wgb4Mel2EYiv8m3Gl71l2YH8zVRTMBELBwdTswARMwARMwARMwARM4BA EL10NUk500ARMwARMwARMwAROwcHUbMAETMAETMAETMAETOAQBC9dDVJOdNAETMAETMAETMAETe G3hyod 85FROMYHzNfqkI8hYlpuhNcHeu95dJb68Jlncd6TPpahVX48Fukz/tX4/ZTrWt/PeuTYJI81w Ow0hvaHgzwFetX2zb72dH6555qqtVvfBHBHlufiaOPPONLFvQlBLfYRH 4pR88s//E9pP8wqD3hR9kF9 oeEv2P53PLSwc1wS iMBrC1dAwOSgg3R6reMNbldfaXjjAAk/7hGGn02PwZ2vmgSPy0CLgBf54DmI/GLwIi5duUFmEAB7vqxcJe78kepVXhGc2qe8EhbJX51Pp4jN4J/SP2uF7NVvLH/Nzmevxzab2nJ4jfKtttOYeEOiZ/YfuBHLeINrD4mK/HWOudXoT dzKw/HN4EnE7hBAT7Zk5r5ODFAGKSHvK8ijq/6pCBBfK5MwmYclKD3VIDib76yE lmESHqU5rAgiDR8N55KT0ffD1jxW7c/GZZYDMKV1xTWwjnapeWi/6g/KlcfJ0tVgRR7UhIISyvZI0P0Ecc2iBX8IKPGLDpN33AMU4CumKVVjfWvNU2fMdba2CP/ql9Mon1mwrR Q9p4BOyLTK6Y8X0UhdwNnzU/xofsi2VH Za9UsWqDPWA9mpK2zfCEuMwytrNe6t52TLdEfqn3v4teoXZU7h6D/Sf9m3yKTW/i/9X8YVtgfUFdoPxzra0iNXT1m/p9B/EBc2GM6 ib9v bCOn9F/4AfKzP5d8qvGb0/9wR7LX2v/iRHqACef Px0Pp9A4iQm8EwCxxCuOunjXAe50mCqK1xx8C8NkmcZsBAehRdqIE1QMsHcWiu19PAVk5P6oP6j fLriinxL12r2GR/cmA Ky/wwKeiAnXjJxBZ5IBwTptaB hu5IEzjIn2aOHGyflCemn 9 qWN1jH5t YX875wW8NvXdFHvmBE4ULG6k LD K1yk87Fz95YT3iehI5MLL6ouIceZ9QxxQxD379LPI/cv/s8SPTWv2y/OcG/1r7R5MrCVOOUaW2n2sy/4/08Av21Q/ts2jv9I1lQXu55fMV/UcZqW/IW8NQZu3Dvfrb2/7jmKY 9M7fgU PgcNN4AsJ3DiCfaFnzAoDkwpJDlw6mKWBY504SoM9B7 UNohP2uPkixVBzU/9UEHA63uPKEcpPX1TO1pmlOcRwrWUN8rOCZnl55GrRmmSUOcK58pfg2G/NTEzbqnOGIaj2u/F1XQ4T/ykznVSZ1yUkeVG/etEzzh7jyXhq/6X7OwpU639aFuBbbVVau8aXvLl1msxf/ano/TP6H PT6zfVvo97T 1DXz5mNc7DTjHF0eMe5U7BKwjrV/E5ThBn0rpNQ3ttI7J7pP7D4V69GMPP5aVabXMpbJqONPgCP6lcV/jlM7fhU p7L5mAt9E4HjCFaBag1VJJHCwiulgC9 0uSJVss2KQdqS GN471hLD391ko8 pIExVFPJVukafWL5 bcee8KUk6imiecl5oizZ JBvJZ/MbyWV/SJf2NSpCjlkRM84/AIf8Hx1hUppucRbSoVar3Q87lXfpip1S u64Srtm6ZuOn7rceYP32t VRiQZ9Ltp7dP2Oe9KXFQeu3lX5P 6doQz/DObYN8cteqf7ULw2H32zX9KlUFk2jtmrnX9F/yIA 0P89/BiXabXMpbJqONPgiHapbVbDWufvwqfFwGEm8MUEgiL64tz3ZBcHJgxGaTKT29mwg4EHg35NXGJi iL8e5cDG2 ZpNQVCNtiGffhRs723HKX08DveXtbJXSck5JN8DsKo519tsEa6NFnKikosSwwHK7BURvCX4hucs IrL7QcaduU/CrJ Wv4xDuy06pfx4rEkvJUvzrUsaAMUDtFW6e8orFCsmF4ZRD6wuaf8tfaH61f o61KfWreqe0U gjyh6in8CmVs3Yt5o88jtQ/o/ xLnr120uv/MEw1QH6L07Wup mXGfIO97x dD/EGftf8nWWtdIy/pTnxBX7yDA3i1fzJ7df8AAPnH8wN9X/svYgrDIT OS563tH lQz oDru35vAufPSwcxwS iMBrC1dOqFwp41EHJoJiXF3pYhiOGOBK6XCddiE4 OMVDmIY0Biux1o mifOe mTcMJtwjUf3a IQTreytfwPfZL avQgQ1MHCwb7CfhtU6sKVx vIRwXaFGOMQe/Yz fUiPiRaVtX72 IeovfqlPR4ju1J94hr4Qzho XWip73aEf7H9Fo pGvx6ZW/FA5fkYe2XdQpGSFc27q2LbRvDYN/rH8yqpU1Xtf8yC/mzTSMG9kw/Dv65x5 rfrdkx7lq/24CGFsp2SP/HiubLR/sf xbUCwki/qln6hTcA 6x91g2tIh37a tAv1it9Yp64jmv39B/6zDz0qGNUjR/LiXT3tP/ESL5st7gw7J34sMw msCLEOiMXi/i5R43MAjGCXlPuu OE1dkvtufV83/qPX7ajxLwhVt8Nl9x/X3ai3hPf0ptX98cVOh/J5kcqlLfN6Zh8v kgSOL1y5WsRv61wZeEncwSkIBvrdWwEJSd/mzyPX76tUkrazuJrOlaPaSui9ZXD93UvQ6e8l0Gv/cQvZvfkdLX2Lz9HKYn/fgsDxhetbVJMLaQImYAImYAImYAImMPz69WvxPzNwG3AbcBtwG3AbcBtwG3AbePU24BVXf3kxAR MwARMwARMwARM4BAEL10NUk500ARMwARMwARMwAROwcHUbMAETMAETMAETMAETOAQBC9dDVJOdN AETMAETMAETMAETsHB1GzABEzABEzABEzABEzgEAQvXQ1STnTQBEzABEzABEzABE7BwdRswARMw ARMwARMwARM4BAEL10NUk500ARMwARMwARMwAROwcHUbMAETMAETMAETMAETOAQBC9dDVJOdNAE TMAETMAETMAETsHB1GzABEzABEzABEzABEzgEAQvXQ1STnTQBEzABEzABEzABE7BwdRswARMwAR MwARMwARM4BAEL10NUk500ARMwARMwARMwAROwcHUbMAETMAETMAETMAETOAQBC9dDVJOdNAETM AETMAETMAETsHB1GzABEzABEzABEzABEzgEAQvXQ1STnTQBEzABEzABEzABE7BwdRswARMwARMw ARMwARM4BAEL10NUk500ARMwARMwARMwARPoCtdh/LsMw6/Lv3H4tZznP7vIDdN/C Iv57/V NNpudg z7 r8WCrFV5N2Ak4L8syTlsZp n3Mo91P9TcnvJp/Hg zudlGIYP/ axWy3R1Lf9nfnNlzJM07jM4/gUf04L2sq0PIoP7bEOenYZvxavF/4UKF9sdBznZTnPl1zn87LWN1qCPyZgAiZgAibwXAJdhYTJeBogVP9LnlDotcSoujyOf5vClXHH d9ThCnt1445302Iz6d/u4UrbO4tXz3/83KeN6G3CYFaiq /PkGsLGgJHz8Q3 d5ugTMp/PThCsygRfzuOV3yfiOEzIf8S1KRFnJZC//XnjJ5lGuAc9p jhkDDngKMWwnyZgAiZgAgcm8HEWCoXBRKzCFcEQe8vpTzpiNRbn GAFEn/ryiiE3Xz6uwzjnxQ2jViBzSJYs6oJ196KbBbSOV/kPY /lnH8s0sssyyntNL7T91J5/DpUeX7YHy9kIXfWBRkEFTDMKbVzOU0LZnFsIzDkATWMM7pfJqx4pnjTVitFfEVV0TzaihqNX8gO rDiCPE8zTgfl2RjOS2aP1clcYQv/MD/UxLe5RW3E8owTpcV2XmCSM9xueKMVdor/0Uka3qU 3TCiuuWv4bDN7UPH1vl0zKQr36JQLja7 VfCu/lr/ZL/sf6G8OKdi/8XvtklFjiC4zUPcMo/FmvvO6jCZiACZiACTyawM3CNU2UsopKEUvHIK5UuGKrAcTkcs7CEBPpBGG5ruAyXU249sJHbCFY hTPiwv6IFeLG9gTaxDFP/BC v5NInaffF18R/qjyaZ56TvGWREthiwBEwTiMSTDoOW1AvCaxdkZJcnl0hTTe2gWfLPxyfKRBnSXRBVF5PieGOPKj 9niNx8wvC96L8NK0E1ZrN1sp/2kTnih/FttZTGPVk IxfWmCSD3nMOalt qnjn342SofbObynZOXyqaXfy cjFr59/yPXwymtKK9ddte L32WYZU1gH1luuC13HElRFh8oVJw31uAiZgAiZgAo8isM2AFYuYlIYhr5Zi9THtcRWh2BN2pVvp MQ2y/oxwhW9zEsEV5z9xeUpbBX5dUkZfozDfW76LwXAC4QGhlsuyCTqNBrGHFUmIyygOojBFOtjEylg bNsQaDPeEs9l hiP8VvClXF4VGGF/LmSClHLfxPKsQog rqlRxGzLyW/YJN7aPfYh92SHc3vlFaB85XEZl1VLKXT/HvhmgfLxGs47vE/9T9ZsZ6wf3gV8rDRCn EffoLWxO QMmXEIbhiC9QpdVYjeNzEzABEzABE7iXwC7hGrcKaKaPEnb3CdePt/nVx1vOIQS0vI8qX80HCtdaOK5DDEK0juO4nMOt2lcTrplfXpnDud7WL5XxHuG6x37mt4nh6ANv5 VNU48h9nD1h2gtnXqV4CNvrP 1gIXuasYe43G1j CPtW7iyFnw0ARMwARP4TgLlGVA8wuSnQk6C0qkKTvywCbfcW1sFEGdKv9q/3ueqdmIe LsWHp82cDr/S/tpue 2ZIvXUDZsKziftqceYII YbvA tF87ykf7cVjSbjqCifCeSsd/mK/qK7ePWqrgNr84KP8khzCiStvmd 0nE/XvzKPK5h5D2y0mv9uCdfU9jpbBbBC2rKPXPrCcdvKsG0dOCVhOTXy3 NfK3 E9fzHFxP9soIvMVd8e EdPj37uZayyJ68VYA4fDQBEzABE/gmAl3hqo/DKj3aKt3Glh9eTfP2Ay0 Lir9OGvdQ6o/zkpCTLYhYCsC/k34wdfyX74N2ggHs7zvcXuc1Tj uhKiLa5ZeP1ZxmnbCpH8k/2395SvlTfCINp0pY/nvJWu4fzxEONQaEJ4nE7z5QdQFLnMO/PZHlelP87K/LcfTtF2vOULscRb/mo/85uWcdpspPBUc9mDnH/ ARjsjyNWNPMt5z3ly/yzff74SR J1bLfKp/eRucWDI1/uSY/Livl3/JP7ZEtjsq35T8I4kvMB76yVaAXfq99tiMca9sBwDK3K TmjwmYgAmYgAk8j0BXuD4va1t BIHSVoFH2LUNE4gEsHLNbRQahu0WKsY1zOcmYAImYAIm8EgCFq6PpPnFtrACxpW82r7HL3bJ2f1 wAvGLkldbf3iFu3gmYAIm8GIELFxfrELsjgmYgAmYgAmYgAmYQJmAhWuZi6 agAmYgAmYgAmYgAm8GAEL1xerELtjAiZgAiZgAiZgAiZQJmDhWubiqyZgAiZgAiZgAiZgAi9GwM L1xSrE7piACZiACZiACZiACZQJWLiWufiqCZiACZiACZiACZjAixF4unDND0DPLyXAywXm9Faqx 7yiFW 14ksL9DiPeIHBMT6Zz99lGH nsoDPOP1dlvP2Nq9aSWrlL70oomajdV1fEMDHbuHIR2/h8Z16PYWtLxeA3V54K2 E6UsC4gsY8Hd8wD/9ol2 zvXysgZ54QOeR6r2WQ59wUL0P9vfHrJ/Lx/66aMJmIAJmIAJmMA Ak8Xrnh7Vn6Fahar4/zfkoXl48SrvmI2P1dye2XrPgzfF2uc/lvOpz8XB/CXH8s1u4suzgzNfcjuM 4XvJtHECcUbhh2jbcztzIg2HpINY1Pi98EbWKQjp9eH2 Vn3182WPuH1qct5e/0sDODaNOJNXZC5H/2P9mBL49NGtJuMrW8/0/LSl1J4iQ/j WgCJmACJmACJtAncK0A vFvipEn8Y8ikiKLK4bThNXGvOIYX7nayxA2IN4gS2YIvvBBXliNRZz8Otrfi bRC7 siK6vo51HlOe/Sy699JeIhZMaH43ay59xyZR/87g3PePHI4Vn5jvF4PTa2ijc8itdc1SmZ0KUWcN5vXbcI1wZJ tWiNTtk4TrPF/yjMIyClekjD6XBDFzYNzP8qEdH03ABEzABEzABPoEnipcKSqjG1lgZEGLOElInrMYTCuQ80exG2 3wb4rftA2hskUA eH2eVr5Pf9b8H755byt LbC4 ol0maBvC89/SwdlUMpHNf25I94NeG6N301f7m9Hm/FJ/9kRTavFs9XK6QUdohbCq/ly tIz9v4PKpQRlVOI1ZZzwvO5xHiGmf5Q9HJ4x7hinrRV5syLW3qUf37DB 15XMTMAETMAETMIE2gZcQrrzFDVf3iDktEsVxbcV1j81annl18KOIhrjWPai19Opn6VzTwf9h HPZs3uafqXb8nmbxXXqmD9CS8J1r//X1q//ovBsrShSUI7DsJxP16uyKuxK4de5ffwL6eNWARWuYKgruElkig8UnRSs8/m8zGnrQM4rp7/uBvEabXz0blud/Syfkk1fMwETMAETMAETKBO4nrHLcT59NYuFj8JPRRaE5yOEa8tJFYileLXwvcKvlr6Ul17r2e Fqy1lyuu3pGeaeKRwjdf5t4ZPp/PH/aGyIlsKp53asSdc QMsimcca6ulsDXPU1e4apngVxSu6lOMG8uh4Z8pf7Tnv03ABEzABEzgnQk8VbgCLARV68dZzxCu E36cJPtQe8KyFb7nVnsrfa9xwf75dP0EAX2qwJ78yVm/ADDfvekZPx5VeDEs35rHGuO24sgwxL8SjiJcGV/Dma52hL3aiuu2yrltDdi2Dqz 5cpJ5nFlGCFct2aPYPUHW0GmtN0gp08 i430t/h0L59auX3dBEzABEzABEzgI4FtBv8Y9pArEBK4tc3HVenjsHR/KkQX9AHj8dfyLSc0PdPhOA14HNZ/6 OSttvvjEOBl4SM3J6P4cg7 //34pf OGtP pb/JfvYi3v1lIHEr5w/0iszLTvzbfnPOLUjRJmuZPJ8GtBsTlePu6IYRH7DOCdxmH0bko1SeC1fXtf8IV7V3jhNyzCMyTa 2IOBX/7k cH1YcG0cc974m9sLYIO QH/SxqVsELXnLFo1P4bzCH/UP17HcS8fltNHEzABEzABEzCBfQSeLlz3ueFYJmACJmACJmACJmACJtAmYOHa5uNQEzABEzABEz ABEzCBFyFg4foiFWE3TMAETMAETMAETMAE2gQsXNt8HPokAqX9paV9ok/K3mZNwARMwARMwAQOSMDC9YCVZpdNwARMwARMwARM4B0JWLi Y627zCZgAiZgAiZgAiZwQAIWrgesNLtsAiZgAiZgAiZgAu9IwML1HWvdZTYBEzABEzABEzCBAxJ 4qnDNP8D5fXl4f3pA/vhrWc7/fUCFN2zteenAh4SdC/kB/PPlQfrTNF698rOT/Oqh93yIfS8Nw MLCmaU/cGfXL7TpXzzNK6vTXhMRvoQ/lvLv8cDvLKVLxDYEz/G c76jb7c8zc4PIPvPT45rQmYgAmYgAm8GoGnClcUFsLnNG2CDWJ2Gn9fvZL1mVDyKzmnSxbz6XyT cGXCbAei8PYPyow3buENYsv5 vWut1u7TgHBcxKxOs6n9c1QkHT7PvoK11qKe8pfs8nr4zinN1/x71uOr1C/PX/38O3ZcLgJmIAJmIAJmMCyfLlwBXS8qpWrq3lF71daleU1xOFq5TT WobxT3qN63TCq2N/L7iGV7ru UDYnOb6KiTeTY/31/NRTLUVy3uEG8rLV9pqGeF/XjHcXuk6Tr TyN1TtiyIP4ppiFl9JSnO8cF1lJMre3lFPL82leXHkfHVh1r544rnPMKf/MpUpO FIw6FK/KgH/m1rH3x/ez67bWPXD5Z8R7xqtkpCfE9fHsr2i1 5IW7CHx17YRX1gp/rUOfm4AJmIAJmMDRCXyLcI2rsICoYpZQMfGPw0SjnN/5J4xTaDtHJ5 sNozeMmLLJAS8L0vAmiaZqvbq1DqMzTtkJL4zXhxvDaETlNI1ZZ/yURN4/w 98lOsp9mrECna9Np3/L3i0FNZ/Al IUcVSIahid2LMiWMuLopO2Ej8It1TaTZTWwnGdNqb5tEwQvudN DJd7fjs u21jxG3 NcvBvAR5R HLFzp81P5zuclidWVWfInfVFj7j6agAmYgAmYwM8h8PLCFbfY8VGxyxXMz1TDlLYK5GLXVsQmrD qGVauacOv5kP3OZUDcKLrTyvL457IPOG2jKOwBLuVT80nF6TOFa9bEH1d8IZ6W87z0wlmmYZyXY RyX0wTu25cKht9yfGT99toH6m5OIr3t4WeF6x5 e q37Z1DTcAETMAETOA4BL5FuJZWV0vXMHE/WrhCbExYEVtOSZruER6ozppI7FU1fnSGH6XpP93zq mxEIyV5b0rrpnPR HIrQL0 1krrj1h1Qtn2SFcp2nKq63hCwPj7D0 sn57wnQLb4ttC9e9ted4JmACJmACJtAm8OXCFbdSp3S7/HqP6jOEK4QFbtueT9gOkD9RTGF1MO BZYzy8TPCNQub660B29aBXP5x/LucZdsDtgqcpm2FtuzNdrX34yz1Gz9Mw15IbiOgFd6qx98Tbj0PEMPXYkztMB2OmhZ/37VV4IS2cb1HFjbhyTBMS1wJ/4r67bUP8Feep/M57ZnWLwvK6OF8c4O VImutl8u sQETMAETMAEfgiBpwpXzKn4MZWuNqYfVq23wiE8hmG7Tc540/BrOS1YqcxhWKHEhIxw/LgJIhfn MFT60NhM07bj6/ij1cgiiBO KOgcRwuv9LP/m1pGScKqJIPWvYRvp7/prVElonXsP91nDYGyqdkN16L/scfl0FI8sdnKDv2kaIcKrZwe/3qxz3rfsk95c/5b48bu/XHWRB fBwWzslY/aMfkftX1G/kq 0DdRHLj3D9ooQ4z KLLxPkBaGc 8jwoX5jm/HfJmACJmACJnBUAk8VrkeFYr9NwARMwARMwARMwARej4CF6 vViT0yARMwARMwARMwARMoELBwLUDxJRMwARMwARMwARMwgdcjYOH6enVij0zABEzABEzABEzAB AoELFwLUHzJBEzABEzABEzABEzg9QhYuL5endgjEzABEzABEzABEzCBAgEL1wIUXzIBEzABEzAB EzABE3g9Ahaur1cn9sgETMAETMAETMAETKBA4KnCVR/Cf3m5wIiH8V /NQt 4dWoeLnAIz98cD0f0j6P7eIyfi1eL/yRvr CrVze7eUIe19Fe4vv QH fy8vqZim35fX/N5ipxf3Ge2rl6fDTcAETMAETMAEHkugreQekBfe5oM3X/EDMTuNEKgfxSvjPPqIPPFGJ7whazlvr38t5QOx7z5iHgAADV9JREFUNo9TKShd64VXEx44IPP7v YzTf kNYI8sSn7V7/YGtPn074NwxdvFvrK9PLJ8tmUCJmACJmACJvA4Al8uXOF6Fit5dZWvcuXrXFk0rvbhFajD GfBa2CnE14D 3tJr0W9Qfji1Zh8Jaa ShR56StR8erR02m6Eq69cL6mFHbz61THRV8rq mx8htfyfrhlaHTmEQ2OfTC77XPfFpH1Bder5t1//WqeFwxHW9cMYXtU1pp//fBBVRbfGVwfNUvVlLZdqb5Y/uotS9khryRFqu8zCe2rdQOx7zqjLCcR3718AeHfcEETMAETMAETOCpBL5FuEJM6CosSqhiliWGc BmH32mVb5r/JfGKbQZp5e 0rdIxfukIYTWNWGU9p/fK59VUXF0WiJIJq6tnnPG986eFWwV64SlRehc9/ByW0zQuy/mcxDCO ExTzptxITTnaVvRhag zeOae36vPfNHml74vfbpV 2Y WHF89/KD9w3kRmF55RWTLcV9ppdXod91CeF4zyhvjf7iNdbcUV7Godfy2lNC8bRRql9wTauJ7G6bl BL7plZRz/LucTyp qdhnw94O3tCTj/s8ETMAETMAETKBL4OWF65y2FUDQbWIXYgMrgHs OR2EYf6k7QKnLBwRFldg823xHL8XTpuleAjLK4bjwj22PE4DsGexjP HcbrEmUaI3xwGG63wR9hnGWrHzG9bZY1fGrJ/2z7YtA2ksIe5Zj9eLwnfPcK1JyZbwlXbUq7LXN7cFrayw1cNj777bxMwARMwARMwgecS BbhWhIRpWsqHLKAyit5twhX3sqnaMTxNOViZxGyiVqgznk RrhC1LX2y8aqxSLtNJ8vK7698Efbj/nhb96Kxy11/our5UyX/cce1f0rrkzLI8o0DfhSsu2BtnAlHR9NwARMwARM4L0JfLlwxW3cabwWJqiCZwjXTdjl2/bIJ9/6xu3700O3CsSVWzYrrPDmrQC8cn0cx3k5ryvACJlO57zlYI3WDb/T/rU3139lftdbAzK/7cdS Vb6tvqNFdN0y/7aVPEv2B HP5db8YiELw4xPfJYzvl2fd4yglXQbTvBnlXQUvtCfvFLULSleUOYe6tAsSp90QRMwARMwAS hMBThStECPcucrVO9xNCuAzDdpv5Egf7FRfse8xhWOGDoEA4bglDbOBcb/FGWjnvfJse 0/xNIGcX74tf7mWxMh2DT/OGgb8QCuj0R8/8cdbDFd7uqKLH4LxA6EH8crwcVz3wiYJnfffjpNuFYCvsJw/2J/bCr/XPvOJR6077B FcNT64jWsho7TVodav9Fm/Bv2IFw/pJfVVqSBGGY7UvvqD9uOtotaOH7ohxVdtiOmYRvD39x6kGyEH2cxLJbHf5uACZiACZiACTyXwFO F63Ndt3UT HoC43z9462v98A5moAJmIAJmMD7ErBwfd 6d8l3EsD2AK7opqceyDaFnSYczQRMwARMwARM4AEELFwfANEmTMAETMAETMAETMAEnk/AwvX5jJ2DCZiACZiACZiACZjAAwhYuD4Aok2YgAmYgAmYgAmYgAk8n4CF6/MZOwcTMAETMAETMAETMIEHELBwfQBEmzABEzABEzABEzABE3g AQvX5zN2DiZgAiZgAiZgAiZgAg8g8FThqg x5 OE9AHy6j9eLfqMB7sP43x5 D9fAqCvfaUPeDVs6e1X aH0Q7JRCmf6zxzjA/LveVVqLf/8goLtcU7T9HuZR7x56rGfZ9XfY720NRMwARMwARMwgSMTeKpwBRgIP323PcTslITT9i76ZwPE26 fwild 4MNpGvnnruM4n4vCdlfiTiT4AzE5Tv9dXm3aSbI7OL/qdHsl63z690G44u1XeJOUPyZgAiZgAiZgAibwygS XLgCRhZTedWv9JpNxOFqJFZoh/HPgtd0Tie8Bvb3klZtbxBaFK4l8bl3RbWUNvkpr4zFSu6cBDHWOfd/wAOvr4UvcdU5rpiON66YwvZpBut/HxwqrYjz9aeMjJVUvgJ1mj/yr9Uf0iNvpMUq79UrW6XuSq9UZX70wUcTMAETMAETMAETAIFvEa4QO7oKC0dUzLJqIKzG4XdahZ zmf0m8Luf/8srkaVtFZPzaUbcL1G7314QpbdbCpwmruZtQPWH1dJqYrHtEyrzi S9ZmUeUaxOZUXhOacX0V9cuI2ThmwUnBGF689N5s494vRVX1Nc4/FpOE ri34Iy4qifUv0hHNd1ewhWlVWcj Pf5XzCiu ynNOXgL9X4ZqHz03ABEzABEzABN6bwMsLV 7HVLELMYQVyr2f1oorbdSEaSs8r1iOH/bQTgOwblsTaKN0zOXa9pym7QJSNl2RTKuX2GZx/vxt/ZLw3SNcVWyWytESrlpXKC9tcYuE2tNwve5zEzABEzABEzABE/gW4VoSOaVrKmweIVxb1f0Z4QpROY/7V1dL fNWPEQp/8XVaKbDiiRWnu/5ERd8ngaI/k38WriSsI8mYAImYAImYAKvTODLhStuM0/pdvgmnADoiMI1 T2dltN82w 92CCy8L3eGrBtHch88q30bXUZK6bplj2NNI6wPw5/LrfiERVfBmJ65LGc8 36vCXjek/snlXQUv0hP1yvrbimcMnbWwUalekgEzABEzABEzCB5 5xzbfS8cOcbTVR9ztCWA3Dn6vwdDsc ykX7MvMYViBhHhCGG4zQwzhXAVRrS51f uIW/hn7EnNn5z/VL3V3wuHlbyH9HSxMY7D sQChNQ/ygb7RyEclQevYTV0nDZGyq9uPYfAHoTrh/Sy2oqYEMNXP55atyKoP1qH5F4Lxw/psKLLemJdsQ5Zj8g72Rhz VA2/ACMWwl65XO4CZiACZiACZjAexF4 orre F0ae8lMFq43ovQ6U3ABEzABEzgxxKwcP2xVXucgg3j9oKE9NQDearCcUphT03ABEzABEzABJ5Nw ML12YRt3wRMwARMwARMwARM4CEELFwfgtFGTMAETMAETMAETMAEnk3AwvXZhG3fBEzABEzABEzA BEzgIQQsXB C0UZMwARMwARMwARMwASeTcDC9dmEbd8ETMAETMAETMAETOAhBCxcH4LRRkzABEzABEzABEzABJ 5N4KnCVR yzwfY1x6gj1efPvrB8zn/Mb0cYDlN60sMhsvft8LND9yflnnchy0 oP eV7WWfNUH oNvtv vFNXXTMAETMAETMAETODwBPYpsDuKCXGFN1/xAzE5jXil6PUrXxn 6OOIDE/TxWz25/PFhhidx83exXDjBC7M4 9lnP67vFq1Ef3moGfZvdkRJzABEzABEzABEzCBJxL4vILb6VQUrkim77XXVUNdceVqJVZoh/HPgteITie8Bvb3klZtdwrflnBF2DAMyzRhVTavzE5pNRW558/pvCzDmF8Li1fGnk5Ycb1NuKK8eE0qyqplRA75lbHbA/jH6XcSucx/z7ElXKN9CGh aeArWacJr XNr aNbFM9hFey6itb9/jnOCZgAiZgAiZgAibwCALfIlx7YpYFw0rlOPxOq5TT/C J1 X8X165PP1htOaR4hQClf/O83hJg/AkVs9ZrI7TaWE4rkwQqWtYFoGn3VsFkAnSTOPfZVn pfN5hN/b7XyIx9MMMZmvTad/6y3/i4vdk5ZwHZH3GfnnD4S4 oD8dfsGbKm4RvrzKac/JxH/9yqcdn00ARMwARMwARMwgWcTeHnhmlcIl7RayS0HXMHcA6e04kphivSt8LxCuolcxM 3/a vtfzIIh3CNH SyBTRrSuaWMlM2yjOt22jqAnXvEtiy/vKh1XMRpa6KswtDkyHo4brdZ bgAmYgAmYgAmYwLMJfItwhVjSVT0UsnRNhVMWgHmvbBRbLUgtYZrz/bgHlsI2i7RrkXqrcMWPzvjDNB4pwKPfWNHEyvKtP KKwpV8LFwjYf9tAiZgAiZgAiZwZAJfLlxxq3pKt8uvVxVfUbjeu1UA6fW2PBrKtnUglz/fit 2PWCrwGn6uEraamQ14Yo0e7YKYP8tP3FFVdN7qwAp WgCJmACJmACJvAdBJ4qXLHixx/9cLVR91Om2 TDnw8rkvgh1mnBSmUOwwolBBVsYKUWIhfnKrhK8LDayn2t8XFYWFXthcNm6cdZw9B/JJaWfYSv57 LlpfXsP91nDYGyqdUJr1GJmSrR7LZ8 MsslR7XBFPPocfZzFMffG5CZiACZiACZiACTybwFOF67Odt/2vJzDO1z/e noPnKMJmIAJmIAJmMC7ErBwfdeav6Hcw7g9rmtO2xi2pyLcYMZRTcAETMAETMAETOAuAhaud FzYhMwARMwARMwARMwga8iYOH6VaSdjwmYgAmYgAmYgAmYwF0ELFzvwufEJmACJmACJmACJmACX 0XAwvWrSDsfEzABEzABEzABEzCBuwhYuN6Fz4lNwARMwARMwARMwAS ioCF61eRdj4mYAImYAImYAImYAJ3EbBwvQufE5uACZiACZiACZiACXwVAQvXryLtfEzABEzABEz ABEzABO4iYOF6Fz4nNgETMAETMAETMAET CoC/wfbYyUG52JZmAAAAABJRU5ErkJggg==

Logit
11-28-2020, 10:26 AM
.

It appears you are attempting to run a macro on a 64 bit system (Perhaps Win 10 ?) that is written for a 32 bit system .


Private Declare Function ShellExecute Lib "shell32.dll" Alias

Witzker
11-28-2020, 11:29 AM
Ahh! Exactly it is win 10 and Outlook 2019 both 64 bit
THX!

Do you also know HowTo change the code for this configuration?:yes

Logit
11-28-2020, 11:57 AM
.
I do not know how to convert the ShellExecute to 64 bit.

Try contacting the author of the code and of course others here on the Forum.

Best wishes.

gmayor
11-28-2020, 09:30 PM
Try using the following instead

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongPtr) As LongPtr

Better still investigate MailWasher (https://www.firetrust.com/).

Witzker
11-30-2020, 05:09 PM
Better still investigate MailWasher (https://www.firetrust.com/).
I have tried works good but I have 3 outlooks synct with SimpleSyn
the problem is that only one PC can have MailWasher with the Blacklist - so before getting mails in other OLs MailWasher on the 1 PC has to be executed.
I know there is a server version but this is too expensive and complicated to admin for this task.ö


[QUOTE=gmayor;405631]Try using the following instead

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongPtr) As LongPtr


Code is perfect
its working now

Private Const SenderFile As String = "C:\Users\Privat\Documents\Outlook-Dateien\BlackList\BlackList.txt"Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongPtr) As LongPtr


Public Sub ExportSenderAddresses()
On Error GoTo ERR_HANDLER
Dim Sel As Outlook.Selection
Dim Addresses As String
Dim File As String
Dim Hnd As Long

Set Sel = Application.ActiveExplorer.Selection
Addresses = GetSenderAddresses(Sel)
If Len(Addresses) Then
Hnd = FreeFile
Open SenderFile For Append As #Hnd
Print #Hnd, Addresses;
Close #Hnd
ShellExecute 0, "open", SenderFile, "", "", 1
End If

Exit Sub
ERR_HANDLER:
If Hnd Then Close #Hnd
MsgBox Err.Description
End Sub


Private Function GetSenderAddresses(Sel As Outlook.Selection) As String
Dim b As String
Dim obj As Object
Dim i As Long

For i = 1 To Sel.Count
Set obj = Sel(i)
If TypeOf obj Is Outlook.MailItem Or _
TypeOf obj Is Outlook.MeetingItem Then
b = b & obj.SenderEmailAddress & vbCrLf
End If
Next

GetSenderAddresses = b
End Function




So now my first question
This macro adds
name@domain.xx to the list

Pls help in modifying the macro that only
@domain.xx
will be written in the file

In combination with this:

Auto Block Unwanted Emails with the Blacklist in a Text File (vbaexpress.com) (http://www.vbaexpress.com/forum/showthread.php?68089-Auto-Block-Unwanted-Emails-with-the-Blacklist-in-a-Text-File)

It could be a great solution to fighting spam!
What do you think?

Witzker
12-01-2020, 01:53 PM
Maybe also better to use an EXCEL file for BlackList?
What do You Think?