Enviando e-mail em massa com anexo e imagens
Tenho recebido dúvidas se seria possível enviar anexos também com o meu script. Parece que muita gente gostaria disso… Pois é, a melhor parte é que além de ser possível, é mega simples! Basta adicionar uma única linha. Veja ela em destaque: Public Sub SepareDrafts() Dim lDraftItem As Long Dim myOutlook As Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myFolders As Outlook.Folders Dim…(read more)
