使用VBA从Excel列表发送大量电子邮件

Question

我正在尝试使用Excel中的VBA脚本自动执行手动过程。我有一个电子表格，其中包含4个列表：电子邮件地址，主题，消息，签名。我是VBA的新手，想按一个命令按钮，该按钮将自动为列表创建Outlook电子邮件。

在下面的示例中，我也列出了3个人，我也想通过单击按钮3发送电子邮件，我也希望这些电子邮件位于草稿中，并且由于需要事先检查而不会自动发送。 / p>

下面是我的代码

func main() {
    cs := Category.CategoryScrapper{
        Name: "Name",
        Link: "/link",
    }

    wg := new(sync.WaitGroup)
    go cs.GetProducts(wg)
    wg.Wait()

    res, _ := json.Marshal(cs)

    fmt.Println(string(res))
}

func (s *CategoryScrapper) GetProducts(pool *sync.WaitGroup) {
    pool.Add(1)
    defer pool.Done()

    maxPageNum := s.getMaxPageNum()
    localPool := new(sync.WaitGroup)

    s.Products = make([]Product.ProductData, 0)

    for i := 1; i <= maxPageNum; i++ {
        go s.getPage(i, localPool)
    }

    localPool.Wait()
}

func (s *CategoryScrapper) getPage(page int, waitingPool *sync.WaitGroup) {
    product := Product.ProductData{
        Name: "Name",
        Link: "Link",
        Thumbnail: "Thumb",
        OriginPrice: "1111",
        Excerpt: "Excerpt",
    }

    s.Products = append(s.Products, product)
}

任何帮助或工作示例将非常有帮助。谢谢