Send Emails to HTTPS from Excel

[giri]

Hello,

I would like to Send Emails to HTTPS which requires Login/Password.
Is this Possible????


Please help me

 

[Ruddles]

You can't "send emails to HTTPS". What exactly are you trying to do? Log in to a Web-based email service?

 

[giri]

Hello,

we send emails from HTTPS . I have created a Macro which draft us a Email standard format.

But, HTTPS it requires login/ password based.so, each time we have to copy the Email format & paste it in HTTPS.

so, i would like to know if we can link this Macro to HTTPS.

Here is an example of the Code which created Email for us :

Sub portal()
Dim objOutlook As Object
Dim olNs As Outlook.Namespace
Dim Calendar As Outlook.MAPIFolder
Dim olAppt As Outlook.AppointmentItem
Dim objMailMessage As Outlook.MailItem
Dim emlBody, sendTo As String
Dim wkbook As String
Dim myTime As Date
Application.ScreenUpdating = False
Set objOutlook = CreateObject("Outlook.Application")
Set objMailMessage = objOutlook.CreateItem(0)
Set olNs = objOutlook.GetNamespace("MAPI")
olNs.Logon
sendTo = ""
emlBody = "Hello ," & vbNewLine & " Please note that for order XXXXX, product XXXXX can not be found on the portal ID ATEU3433454. " & vbNewLine & " Would you please advise further? " & vbNewLine & " Thank you."
With objMailMessage
.To = sendTo
.Body = emlBody
.Subject = "product not on portal"
.Display
.Save
End With
Set Calendar = olNs.GetDefaultFolder(olFolderCalendar)
Set olAppt = objOutlook.CreateItem(olAppointmentItem)
myTime = Format(Now(), "hh:mm AM/PM")
myDate = Date + 1
olSub = "product not on portal"
olAppt.Start = myDate + myTime

With olAppt
.Duration = 30
.Subject = olSub
.Body = emlBody
.Location = ""
'.ReminderMinutesBeforeStart = 30
.ReminderSet = True
End With

olAppt.Save
Set olApp = Nothing
Set olNs = Nothing
Set olAppt = Nothing
Set Calendar = Nothing

End Sub

HTTPS Address is : https://login.portal.hp.com/smlogin...in.hp.com/integration/r4/wfsworklist/TaskList

Pleas Help .

 

[Ruddles]

we send emails from HTTPS . I have created a Macro which draft us a Email standard format.

The VBA code you posted specifically uses MS Outlook and it cannot be modified to work across HTTPS or any other mail service or system as far as I am aware.

I wasn't able to open the link you posted, presumably because it requires a login, so I couldn't take a look at it. Is it a Web-based email service? Or is it something else?

If it's Webmail or some other form-filling system, you will need to drive Internet Explorer using VBA to do something along the following lines:-

• Open Internet Explorer
• Navigate to the login page and check whether you're already logged in
• Look in the HTML to find where the username and password are meant to be typed and supply the correct values
• Find the button which executes the login and press it, the wait for confirmation that you're logged in successfully
• Navigate your way to the new messages screen, past any intervening screens
• Find the 'new message' button and click it, then wait for the new message screen to appear
• Fill in all the necessary fields: To, Subject, message text, plus anything else which is required
• Find the button which executes the 'send' action and click it
• Loop round to send another email or log out and close IE

At each step you'll need to check that the screen you're receiving back from the Web site is the one you're expecting, and take the necessary action if it isn't - for example, if there's a problem sending the email. You'll also probably have to incorporate some sort of timeout mechanism in case the service hangs or takes too long to respond.

Writing scripts to interact with Web sites is an excellent test of your ability to anticipate the types of errors and problems you're likely to encounter, and to produce code which will cope with them without crashing or hanging!