如何用excel自动发送邮件
如何自动发送邮件DimOutlookAppAsOutlook.ApplicationDimMItemAsOutlook.MailItemDimSubjAsStringDimEmailAddrAsStringDimEmailccAsStringDimMsgAsString'CreateOutlookobject.CreateItem(olMailItem)SetMItem=OutlookApp.CreateItem(0)WithMItem.To=EmailAddr.CC=Emailcc