....GetDefaultFolder(6).Views Set objNewView = objViews.Add(Name:="RIM Fields", _ ViewType:=olTableView, SaveOption:=olViewSaveOptionAllFoldersOfType) objNewView.XML = fs.opentextfile("<insert file ").readall objNewView.Save End Sub AND THE XML FILE READS LIKE THIS BELOW... <?xml version="1.0" ?> - <view type="table"> <viewname>RIM ...
... Dim fso Dim Ts Dim Signature As String Set fso = CreateObject("Scripting.FileSystemObject") Set Ts = fso.OpenTextFile("F:\Email Stationery\Email_Template.htm", 1) Signature = Ts.ReadAll ' [Body] is a tag in html file as a placeholder to actual body text , [Body] is replaced with actual body text here If IsNull(EmailBody) Then ...
... Dim fso Dim Ts Dim Signature As String Set fso = CreateObject("Scripting.FileSystemObject") Set Ts = fso.OpenTextFile("F:\Email Stationery\Email_Template.htm", 1) Signature = Ts.ReadAll ' [Body] is a tag in html file as a placeholder to actual body text , [Body] is replaced with actual body text here If IsNull(EmailBody) Then Signature = ...
...", 1) Set OutlookApp = New Outlook.Application Set EM = OutlookApp.CreateItem(olMailItem) With EM .To = "user@company.com" .Subject = "Any Subject" .HTMLBody = Ts.ReadAll .Send End With Content of F:\Email Stationery\Email_Template.htm ================================== <HTML> <HEAD> </HEAD> <BODY> <img src="file:///F|/MyFolder/MyImage.jpg" ...
...(EmailBody) As String Dim fso Dim Ts Dim Signature As String Set fso = CreateObject("Scripting.FileSystemObject") Set Ts = fso.OpenTextFile("F:\Email Stationery\Email_Template.htm", 1) Signature = Ts.ReadAll ' [Body] is a tag in html file as a placeholder to actual body text , [Body] is replaced with actual body text here If IsNull(EmailBody) Then Signature = ...
... esta ficando de cabeça para baixo.. e os ões esta ficando `oes... O que preciso fazer pra solucionar isto? segue abaixo parte do script asp: If bExibirTextoServico=1 Then Set ts=fso.OpenTextFile(cCaminho & "\scripts\" & RS("IdServico") & ".rtf", 1) cTextoTecnico=cTextoTecnico & ts.ReadAll cConteudo=replace(cConteudo,"cTextoTecnico",cTextoTecnico) 'fim End If
... we got a file, we can open it up. Set MyBody = fso.OpenTextFile(BodyFile, ForReading, False, TristateUseDefault) ' and read it into a variable. MyBodyText = MyBody.ReadAll ' and close the file. MyBody.Close ' Now, we open Outlook for our own device.. Set MyOutlook = New Outlook.Application ' Set up the database and query connections Set ...
...); ObjectName = "ADODB.Stream"; objStrm = new ActiveXObject(ObjectName); objFile = objFileSystem.OpenTextFile(this.ProcessingFile); objStrm.Open(); objStrm.WriteText(objFile.ReadAll()); objStrm.Position = 0; this.xmlBulkLoadObj.Execute(this.XSDFile, objStrm); The XML file is shown below. I don't know if I should use the ...
... ActiveXObject(ObjectName); ObjectName = "ADODB.Stream"; objStrm = new ActiveXObject(ObjectName); objFile = objFileSystem.OpenTextFile(this.ProcessingFile); objStrm.Open(); objStrm.WriteText(objFile.ReadAll()); objStrm.Position = 0; this.xmlBulkLoadObj.Execute(this.XSDFile, objStrm); The XML file is shown below. I don't know if I should use...
