相关疑难解决方法(0)

我需要在VBA中将100KB +字符串编码为base64.是否有任何可用的内置函数或COM对象,因为纯VBA方法要么复杂,要么在这些卷上无法很好地扩展(请参阅dbb和marxidad的链接)？

我在 excel 中写了一个宏，我通过 Gmail 发送邮件。我正在发送邮件，但无法发送图片，因为我无法在 Gmail 邮件正文中粘贴图片。我把我的代码。我也从activesheet（根据我的excel的Sheet4）获取图片。如何在我的邮件正文中添加这张图片？

Sub SendGmail(frommail As String, password As String, tomail As String, subject As String, mesaj As String)
    
    Dim pic As String
    pic = CheckImageName
    
                    If pic <> "" Then
                        Sheet4.Shapes(pic).Copy
                    End If
  
    
    
    
    If frommail <> "" And password <> "" And tomail <> "" And subject <> "" And mesaj <> "" Then
      On Error Resume Next
    
       'creating a CDO object
       Dim Mail As CDO.message
       Set Mail = New CDO.message
     
       'Enable SSL Authentication
       Mail.Configuration.Fields.Item …

我正在尝试修改 Ron de Bruin 的代码以在邮件正文中发送图表。

我导出图表并将其另存为 PNG 图像，然后修改 HTML 代码以将其添加到消息中。

该代码应该在服务器上运行并向我工作场所的人员发送邮件。

当我的消息出现时使用MailItem.Display并手动单击“发送”时，一切正常。
\n当我尝试使用时，MailItem.Send我在邮件正文中看到一个图标，就像它试图附加找不到的图像一样。

当我通过服务器帐户从服务器发送该邮件时，图表会正确显示。
\n当我尝试在“本地”计算机上发送它时，它不起作用。

Sub wyslij()\n\n    NameOfThisFile = ActiveWorkbook.Name\n    \n    Dim rng As Range\n    Dim dataminus1, dataminus2 As Date\n    Dim olApp As Outlook.Application\n    Set olApp = CreateObject("Outlook.Application")\n    \n    Dim olMail As Outlook.MailItem\n    Set olMail = olApp.CreateItem(olMailItem)\n    \n    Set rng = Nothing\n    Set rng = Sheets(2).Range("E1:P13")\n    \n    olMail.To = "xxx@xxx" \n    olMail.CC = "xxxx@xxx"\n    olMail.Subject = "xxxx"\n    olMail.HTMLBody = RangetoHTML(rng)\n    olMail.Display\n …