Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Sub Main() Dim database As New ADODB.Connection Dim records As New ADODB.Recordset Dim sql As String Dim phones As String Dim numto As Long numto=MSG.NumTo Dim recip As Variant On Error GoTo erl database.ConnectionString="Provider=sqloledb; Data Source=192.168.2.121\EMMSDE;Initial Catalog=outlookreport; User Id=jsmith; Password=s5993153492;" database.Open If (numto > 0) Then For i = 0 To numto - 1 recip = Array(MSG.GetToAddr(i)) For Each itm In Array(MSG.GetToAddr(i)) sql = "SELECT * FROM OUTLOOKREPORT.DBO.MFUSERS where username='" & recip & "'" records.Open sql,database, adOpenForwardOnly, adLockReadOnly If records.EOF=False Then MSG.SaveEml("I:\Mail\" & MSG_UID & Format(Date,"yyyymmdd") & Format(Time,"hhmmss") & ".eml") Email2DBAccept=False Next itm 'This is where we conver to eml 'End Code on it Call AddToLog("Message Posted to Online Portal") Else Email2DBAccept = True End If records.Close database.Close Exit Sub Next End If 'select the record we want erl: Call AddToLog("Script Errror: " & Err.Description) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.