80. satırı şu şekilde değiştirip dene bakalım.. 

if mailcomp = "CDOSYS" then