Hi David
If you want to send mail from outlook below is the code
sub Test
Set myApp = CreateObject ("Outlook.Application")
Set myMessage = myApp.CreateItem(olMailItem)
Mon="January"
username_temp= myApp.GetNameSpace("MAPI").CurrentUser
UserName_from= left(username_temp,len(username_temp)-9)
msg= "your message...."
myMessage.BodyFormat = 3
myMessage.To = InputBox("Enter email address in johnsmith@mail.com format","Email Address")
myMessage.Subject = Subject "
'myMessage.body="Hiiiiiiiiiiiiiiiiiiii"
myMessage.HTMLBody = _
msg
myMessage.Attachments.Add "C:\temp\DimensionMme.xlsx"
myMessage.Attachments.Add "C:\temp\sqldeveloper\icon.png"
myMessage.Attachments.Add "R:\community\EmailMacro[1].qvw"
myMessage.Send
msgbox("Mail Send")
Set myMessage = Nothing
Set myApp = Nothing
end sub
' Sub routine that runs when you click CommandButton1.
Sub username()
Set myApp = CreateObject ("Outlook.Application")
Set myMessage = myApp.CreateItem(olMailItem)
' Message box that returns the current user's name.
Msg = myApp.GetNameSpace("MAPI").CurrentUser
msgbox left(msg,len(msg)-9)
End Sub
regards
Harsha
