Click here to Skip to main content
15,914,165 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionRelease a file from web control so it can be deleted Pin
Steve van Niman28-Jul-09 6:03
Steve van Niman28-Jul-09 6:03 
AnswerRe: Release a file from web control so it can be deleted Pin
Dave Kreskowiak28-Jul-09 7:56
mveDave Kreskowiak28-Jul-09 7:56 
GeneralRe: Release a file from web control so it can be deleted Pin
Steve van Niman28-Jul-09 10:33
Steve van Niman28-Jul-09 10:33 
GeneralRe: Release a file from web control so it can be deleted Pin
Dave Kreskowiak28-Jul-09 16:35
mveDave Kreskowiak28-Jul-09 16:35 
GeneralRe: Release a file from web control so it can be deleted Pin
Steve van Niman29-Jul-09 2:37
Steve van Niman29-Jul-09 2:37 
QuestionFTP download new files Pin
B-rad A28-Jul-09 4:00
B-rad A28-Jul-09 4:00 
AnswerRe: FTP download new files Pin
Dave Kreskowiak28-Jul-09 7:52
mveDave Kreskowiak28-Jul-09 7:52 
QuestionLotus notes- Sending mail using VBscript or VB Pin
Arunchennai28-Jul-09 1:40
Arunchennai28-Jul-09 1:40 
Hi,
I need to write a script(using vbscript) to send a XML content to the X-mailbox. My mailbox has been configured in Lotus notes. I'm currently using the script like below, but here while sending a mail I want to set the mailcontent type as 'Text\plain' or 'MIME message' type. I should not send a mail which is in Richtext format.

Please can anyone help me to find the solution for this?


function sendemail(emplnum,msg,subject)
dim objNotesSession, objNotesDoc, objNotesDb, objNotesBody

Set objNotesSession = createobject("Notes.NotesSession")

If objNotesSession is Nothing then
msgbox "Could Not create a Session of Notes", 16, "Notes Session Error."
end if
'call objNotesSession.Initializeusingnotesusername("IT-TeknionMalaysia","coffeetime99")
set objNotesDB = objNotesSession.GETDATABASE("TFSMDMS1","mail\slim.nsf")

'Create the mail document
set objNotesDoc = objNotesDB.CREATEDOCUMENT
'set objNotesDoc.ReplaceItemValue("Form", "Memo")
set objNotesBody = objNotesDoc.CreateRichTextItem("BODY")

set curEmployee = new Employee
'Response.Write "employeenum:" & emplnum
curEmployee.GetEmployeeInfo(emplnum)
if curEmployee.err = "" then

With objNotesDoc
.Form = "Memo"
.subject = subject
.Sendto = "seokbee.lim@teknion.com"
.body = msg
.postdate = Date
End With

if true then 'true for real email, false if testing
if objnotesdoc.send = false then
Response.write "The email could not be sent, " & _
"please notify your employee on the status of his/her leave application.<BR>"
response.write emailmsg.log
else
Response.write "<center>An email has been sent to notify " & curEmployee.Name & " of the leave application.</center><br>"
end if
else
'response.write("To: " & curEmployee.Name & " &lt;" & curEmployee.Email & "&gt;" & "<BR>")
'response.write("From: " & emailmsg.From & "<BR>" )
'Response.Write("Subject: " & emailmsg.Subject & "<BR>")
'Response.Write("Body: <BR>" & emailmsg.HTMLBody & "<BR>")
end if
else
Response.write(curEmployee.err)
Response.End
end if

end function
QuestionVB Webcontrol Pin
Paul Hayman28-Jul-09 0:58
Paul Hayman28-Jul-09 0:58 
AnswerRe: VB Webcontrol Pin
Mike Ellison28-Jul-09 3:15
Mike Ellison28-Jul-09 3:15 
GeneralRe: VB Webcontrol Pin
Paul Hayman28-Jul-09 3:39
Paul Hayman28-Jul-09 3:39 
QuestionHow to disable the image - "Launching Application" Pin
Paramu197327-Jul-09 21:25
Paramu197327-Jul-09 21:25 
AnswerRe: How to disable the image - "Launching Application" Pin
Christian Graus27-Jul-09 23:12
protectorChristian Graus27-Jul-09 23:12 
GeneralRe: How to disable the image - "Launching Application" Pin
Paramu197328-Jul-09 0:38
Paramu197328-Jul-09 0:38 
GeneralRe: How to disable the image - "Launching Application" Pin
Eddy Vluggen28-Jul-09 1:05
professionalEddy Vluggen28-Jul-09 1:05 
GeneralRe: How to disable the image - "Launching Application" Pin
Christian Graus28-Jul-09 22:23
protectorChristian Graus28-Jul-09 22:23 
Questiondisable keys on keyboard Pin
Phenneger27-Jul-09 7:59
Phenneger27-Jul-09 7:59 
AnswerRe: disable keys on keyboard Pin
Dave Kreskowiak27-Jul-09 8:20
mveDave Kreskowiak27-Jul-09 8:20 
GeneralRe: disable keys on keyboard Pin
Phenneger27-Jul-09 8:23
Phenneger27-Jul-09 8:23 
AnswerRe: disable keys on keyboard Pin
Mike Ellison27-Jul-09 8:46
Mike Ellison27-Jul-09 8:46 
GeneralRe: disable keys on keyboard Pin
Phenneger27-Jul-09 8:51
Phenneger27-Jul-09 8:51 
AnswerRe: disable keys on keyboard Pin
Vimalsoft(Pty) Ltd28-Jul-09 22:53
professionalVimalsoft(Pty) Ltd28-Jul-09 22:53 
GeneralRe: disable keys on keyboard Pin
Phenneger29-Jul-09 3:11
Phenneger29-Jul-09 3:11 
GeneralRe: disable keys on keyboard Pin
Vimalsoft(Pty) Ltd29-Jul-09 3:17
professionalVimalsoft(Pty) Ltd29-Jul-09 3:17 
QuestionVB6 - Enumerating unreleased references at program end Pin
cvogt6145727-Jul-09 4:19
cvogt6145727-Jul-09 4:19 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.