I have 2 email box account in my outlook so How can I change email account when I'm sending Email
"From"
I need to send from my email address "anas3643@hotmail.com"
Sub Test_for_using()
'MVP OShon from VBATools.pl
Dim oMail As MailItem
On Error GoTo blad
Select Case TypeName(Application.ActiveWindow)
Case "Explorer": Set oMail = ActiveExplorer.Selection.Item(2)
Case "Inspector": Set oMail = ActiveInspector.CurrentItem
Case Else: Exit Sub
End Select
Call odpowiedz_do_nadawcy(oMail)
blad:
End Sub
Sub odpowiedz_do_nadawcy(Item As Outlook.MailItem)
Dim oReply As MailItem
With Item
Set oReply = .Forward
Dim MyValue As Integer
Dim x As String
Dim emailNames(19) As String
emailNames(1) = "anas.alwasel11@gmail.com"
emailNames(2) = "anas3643@hotmail.com"
emailNames(3) = "anas.alwasel11@gmail.com"
emailNames(4) = "anas3643@hotmail.com"
emailNames(5) = "anas.alwasel11@gmail.com"
emailNames(6) = "anas3643@hotmail.com"
emailNames(7) = "anas.alwasel11@gmail.com"
emailNames(8) = "anas3643@hotmail.com"
emailNames(9) = "anas.alwasel11@gmail.com"
emailNames(10) = "anas3643@hotmail.com"
emailNames(11) = "anas.alwasel11@gmail.com"
emailNames(12) = "anas3643@hotmail.com"
emailNames(13) = "anas.alwasel11@gmail.com"
emailNames(14) = "anas3643@hotmail.com"
emailNames(15) = "anas.alwasel11@gmail.com"
emailNames(16) = "anas3643@hotmail.com"
emailNames(19) = "anas3643@hotmail.com"
MyValue = CInt(Int((19 * rnd()) + 1)) ' Generate random value between 1 and 6.
x = emailNames(MyValue)
oReply.Forward
oReply.Recipients.Add (x)
oReply.Send
Set oReply = Item
End With
End Sub
MailItem.SendUsingAccount Property
Returns or sets an
Account
object that represents the account under which theMailItem
is to be sent. (Read/write.)Syntax :
expression
.
SendUsingAccount
- expression : An expression that returns a
MailItem
object.Remarks :
The
SendUsingAccount
property can be used to specify the account that should be used to send theMailItem
when theSend
method is called. This property returnsNull
if the account specified for theMailItem
no longer exists.
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.