Kirim WA Laundry

Sub KirimLaundryMelaluiAPI()
    Dim row As Long: row = ActiveCell.Row

    Dim nama As String: nama = Cells(row, 3).Value
    Dim kelas As String: kelas = Cells(row, 4).Value & " " & Cells(row, 5).Value
    Dim kamar As String: kamar = Cells(row, 6).Value
    Dim bulan As String: bulan = Cells(row, 7).Value
    Dim nomorwa As String: nomorwa = Cells(row, 8).Value
    Dim linkGambar As String: linkGambar = Cells(row, 9).Value
    Dim keterangan As String: keterangan = Cells(row, 10).Value
    If Trim(keterangan) = "" Or keterangan = "-" Then
        keterangan = "Pembayaran Laundry " & bulan
    End If

    Dim nomorTujuan As String: nomorTujuan = "6285258430850"

    Dim caption As String
    caption = "NOTIFIKASI PEMBAYARAN LAUNDRY SANTRI" & vbCrLf & vbCrLf & _
              "Data Pembayaran Baru:" & vbCrLf & _
              "Nama           : " & nama & vbCrLf & _
              "Kelas          : " & kelas & vbCrLf & _
              "Kamar          : " & kamar & vbCrLf & _
              "Untuk bulan    : " & bulan & vbCrLf & _
              "No. WA Wali    : " & nomorwa & vbCrLf & _
              "Catatan/Ket    : " & keterangan & vbCrLf & vbCrLf & _
              "Link Bukti Transfer: " & linkGambar & vbCrLf & _
              "Lihat Data  : https://www.laundryputra.my.id/data" & vbCrLf & vbCrLf & _
              "Waktu Submit: " & Format(Now, "dd/mm/yyyy, hh:mm:ss") & vbCrLf & vbCrLf & _
              "-------------------------------------------" & vbCrLf & _
              "Sistem Otomatis - Ponpes Karangasem Muhammadiyah Paciran"

    caption = Replace(caption, vbCrLf, "\n")

    Dim jsonBody As String
    jsonBody = "{" & _
      """api_key"":""8cm35qQ0XA1qhAFlTkEb5I38RxTm4q""," & _
      """sender"":""6285708249267""," & _
      """number"":""" & nomorTujuan & """," & _
      """media_type"":""image""," & _
      """caption"":""" & caption & """," & _
      """url"":""" & linkGambar & """" & _
      "}"

    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    On Error GoTo Gagal

    http.Open "POST", "https://sender.digilunar.com/send-media", False
    http.SetRequestHeader "Content-Type", "application/json"
    http.Send jsonBody

    If http.Status = 200 Then
        MsgBox "Pesan berhasil dikirim ke  " & nama, vbInformation
    Else
        MsgBox "Gagal mengirim. Status: " & http.Status & vbCrLf & http.ResponseText, vbExclamation
    End If
    Exit Sub

Gagal:
    MsgBox "Terjadi kesalahan saat mengirim: " & Err.Description, vbCritical
End Sub