@אוריי שאלתי בשבילך 

ובכל אופן תנסה את הקוד הזה:
Public Function email() As String
Dim toAddress As String
Dim subjectText As String
Dim bodyHtml As String
Dim token As String
Dim url As String
Dim http As Object
' פרטי ההודעה
toAddress = "123456789@gmail.com"
subjectText = "hi"
bodyHtml = "hi"
token = "123456789"
url = "https://script.google.com/macros/s/"
On Error GoTo ErrHandler
' יצירת אובייקט HTTP
Set http = CreateObject("MSXML2.XMLHTTP")
' פתיחת הבקשה
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
' שליחת הנתונים
http.Send "{""to"":""" & toAddress & """,""subject"":""" & subjectText & """,""body"":""" & bodyHtml & """,""token"":""" & token & """}"
' בדיקת קוד סטטוס
If http.Status <> 200 Then
Err.Raise vbObjectError + 1, "email", "השרת החזיר קוד שגיאה: " & http.Status
End If
' החזרת תגובת השרת
email = http.responseText
Exit Function
ErrHandler:
email = "שגיאה: " & Err.Description
End Function

