Şirketimiz zoho programına dahil oldu lakin çok yabancıyız lakin sevdik zohoyu vba kodlamasında zorlanıyoruz .Daha önceden Outllok umda kullandığım VBA kodlamasını zoho ya adapte edebilmem için yardımcı olabilir misiniz rica etsem.
Outlook VBA kodlarım .
Sub Mail_Adresleri_ekle()
Dim OutApp As Object
Dim OutMail As Object
Dim msgbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.ActiveInspector.CurrentItem
veri = OutMail.Body
harfler = "@._-ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
sondurum = 1
liste = ""
For i = 1 To Len(veri)
nerede = InStr(sondurum, veri, "@")
If nerede = 0 Then Exit For
sagtaraf = ""
For i1 = nerede To Len(veri)
harf = Mid(veri, i1, 1)
If InStr(harfler, harf) > 0 Then
sagtaraf = sagtaraf + harf
Else
Exit For
End If
Next i1
sondurum = i1
soltaraf = ""
For i1 = nerede - 1 To 1 Step -1
harf = Mid(veri, i1, 1)
If InStr(harfler, harf) > 0 Then
soltaraf = harf + soltaraf
Else
Exit For
End If
Next i1
mail = soltaraf + sagtaraf
If Left(mail, 5) <> "image" And InStr(liste, mail) <= 0 And InStr(dahiletme, mail) <= 0 Then
liste = liste & ";" & mail
End If
i = sondurum
Next i
OutMail.To = liste
Set OutMail = Nothing
Set OutApp = Nothing
End Sub