VRF SMTP邮件

同事VRFer，目前我通过SMTP发送电子邮件与VEE。
但是，现在我需要能够通过VB发送SMTP。
我有一些问题让它在VB中工作（之前从未使用过VB）。
在一些帮助下，我确实收到了通过Outlook发送的电子邮件，但是将运行的计算机将不会安装Outlook。
任何人都有我的榜样或帮助。再次感谢，Scott Anderson质量工程师IADC Worldwide OperationsTel：952.403.8311传真：952.403.8520MS：535scott.anderson@adc.com了解ADC - 宽带公司www.ADC.comMailing地址：P.O。
Box 1101，Minneapolis，MN 55440-1101办公地址：1187 Park Place，Shakopee，MN 55379 ---您目前订阅了vrf as：r***@soco.agilent.com要订阅，请发送一封空白电子邮件至“join-vrf @ it。
lists.it.agilent.com“。要取消订阅，请发送空白电子邮件至”leave-vrf@it.lists.it.agilent.com“。要向此邮件列表发送邮件，请发送电子邮件至”vrf@it.lists.it。
agilent.com”。
如果您需要有关邮件列表的帮助，请发送邮件至“owner-vrf@it.lists.it.agilent.com”。



     以下为原文

  Fellow VRFer's,

Currently I am sending email via SMTP with VEE.  But, now I have a need to be able to send via SMTP in VB.  I am having some issues getting it to work in VB (never used VB before).   With some help I did get the email to send through Outlook, but the machines this will be running on will not have outlook installed. Would anyone have an example or help for me.

Thanks again,

Scott Anderson
Quality Engineer I
ADC Worldwide Operations
Tel : 952.403.8311
Fax : 952.403.8520
MS : 535

scott.anderson@adc.com

Learn about ADC - The Broadband Company at www.ADC.com

Mailing Address:  P.O. Box 1101, Minneapolis, MN  55440-1101
Office Address:  1187 Park Place, Shakopee, MN  55379


---
You are currently subscribed to vrf as: [email=r***@soco.agilent.com]r***@soco.agilent.com[/email]
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list,  email "vrf@it.lists.it.agilent.com". 
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".

斯科特，>在一些帮助下，我确实收到了通过Outlook发送的电子邮件，但是这将运行的机器将没有> outlook安装。检查MAPI：声明函数RegOpenKeyEx Lib“advapi32”别名“RegOpenKeyExA”（ByValhKey
As Long，ByVal sSubKey As String，ByVal ulOptions As Long，ByValsamDesired As Long，ByRef phKey As Long）LongDeclare Function RegCloseKey Lib“advapi32”（ByVal hKey As Long）As Long'验证MAPI.Dim hKey as Long，lErr LonglErr
= RegOpenKeyEx（＆amp; H80000000，“MAPI.Session”，0，＆amp; H20019，hKey）如果lErr 0则调用MsgBox（“未安装Windows Messaging”，vbOKOnly + vbCritical，“MAPI错误”）卸载我退出SubEnd IfCall
RegCloseKey（hKey）使用MAPI：Dim s As MAPI.SessionDim m As MAPI.MessageSet s = New MAPI.Sessions.Logon'或指定一个配置文件名以避免登录提示：s.Logon（“ShawnFessenden”）设置m = s。
Outbox.Messages.Add（“RE：Test”，“Yup，it works。”）m.Recipients.Add（“Shawn”，“SMTP：shawn@testech-ltd.com”，1）m.Sends.DeliverNows。
LogoffSet s = Nothin
如果MAPI不可用，请尝试数百万个ActiveX套接字中的一个。
套筒扳手非常好。
请参阅Paulo de Tarso，“RE：UDPconnections”：www.catalyst.com/products/sockettools/socketwrench/index.html如果您不能或不想使用第三方软件，请查看函数，例如WSAStartup，WSASocket，
WSAConnect，WSASend，WSARecv＆amp;
WSACleanup.http：//msdn.microsoft.com/library/default.asp？url = / library / en-us / winsock / winsock / windows_sockets_start_page_2.asp-SHAWN ----您目前订阅的是vrf：r*** @
soco.agilent.com要订阅，请发送一封空白电子邮件至“join-vrf@it.lists.it.agilent.com”。要取消订阅，请发送空白电子邮件至“leave-vrf@it.lists.it.agilent.com”。
要将邮件发送到此邮件列表，请发送电子邮件至“vrf@it.lists.it.agilent.com”。
如果您需要有关邮件列表的帮助，请发送邮件至“owner-vrf@it.lists.it.agilent.com”。



     以下为原文

  Scott,

> With some help I did get the email to
> send through Outlook, but the machines
> this will be running on will not have
> outlook installed.

Check for MAPI:

Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal
hKey As Long, ByVal sSubKey As String, ByVal ulOptions As Long, ByVal
samDesired As Long, ByRef phKey As Long) As Long

Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

' Verify MAPI.
Dim hKey As Long, lErr As Long
lErr = RegOpenKeyEx(&H80000000, "MAPI.Session", 0, &H20019, hKey)
If lErr 0 Then
  Call MsgBox("Windows Messaging is not installed", vbOKOnly + vbCritical,
"MAPI Error")
  Unload Me
  Exit Sub
End If
Call RegCloseKey(hKey)

Use MAPI:

Dim s As MAPI.Session
Dim m As MAPI.Message
Set s = New MAPI.Session
s.Logon  'Or specify a profile name to avoid logon prompt: s.Logon("Shawn
Fessenden")
Set m = s.Outbox.Messages.Add("RE: Test", "Yup, it works.")
m.Recipients.Add("Shawn", "SMTP:shawn@testech-ltd.com", 1)
m.Send
s.DeliverNow
s.Logoff
Set s = Nothing

If MAPI is not available, try one of the millions of ActiveX socket
wrappers. Socket wrench is very good. See Paulo de Tarso, "RE: UDP
connections":

www.catalyst.com/products/sockettools/socketwrench/index.html

If you can't or don't want to use third-party software, look into functions
such as WSAStartup, WSASocket, WSAConnect, WSASend, WSARecv & WSACleanup.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/win
sock/windows_sockets_start_page_2.asp
-SHAWN-


---
You are currently subscribed to vrf as: [email=r***@soco.agilent.com]r***@soco.agilent.com[/email]
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list,  email "vrf@it.lists.it.agilent.com". 
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".

亲爱的VEE-folk：我是一个新的（by）VEE程序员：如何将两个2-D数组连接起来，以便将第二个数组的Element（0,0）连接到END（Element（x，y））
第一个数组？
VEE的concat（x，y）功能只提供1-D阵列！谢谢！Dean CoombsLumileds LightingSan Jose，CA408-435-4831dean.coombs@lumileds.com-----原始信息-----来自：Anderson，Scott
[mailto：Scott.Anderson@adc.com]发送时间：2003年7月2日星期三下午12:22：VEE vrfSubject：[vrf] VRF SMTP MailFellow VRFer's，目前我通过SMTP发送电子邮件与VEE。
但是，现在我需要能够通过VB发送SMTP。
我有一些问题让它在VB中工作（之前从未使用过VB）。
在一些帮助下，我确实收到了通过Outlook发送的电子邮件，但是将运行的计算机将不会安装Outlook。
任何人都有我的榜样或帮助。再次感谢，Scott Anderson质量工程师IADC Worldwide OperationsTel：952.403.8311传真：952.403.8520MS：535scott.anderson@adc.com了解ADC - 宽带公司www.ADC.comMailing地址：P.O。
Box 1101，Minneapolis，MN 55440-1101办公地址：1187 Park Place，Shakopee，MN 55379 ---您目前订阅了vrf as：dean.coombs@lumileds.com订阅时发送一封空白电子邮件至“join-vrf @ it。
lists.it.agilent.com“。要取消订阅，请发送空白电子邮件至”leave-vrf@it.lists.it.agilent.com“。要向此邮件列表发送邮件，请发送电子邮件至”vrf@it.lists.it。
agilent.com“。如果您需要帮助邮件列表，请发送邮件至”owner-vrf@it.lists.it.agilent.com“.---您目前订阅vrf为：r***@soco.agilent。
com订阅时发送一封空白电子邮件至“join-vrf@it.lists.it.agilent.com”。要取消订阅，请发送一封空白电子邮件至“leave-vrf@it.lists.it.agilent.com”。要发送消息给
这个邮件列表，请发送电子邮件至“vrf@it.lists.it.agilent.com”。
如果您需要有关邮件列表的帮助，请发送邮件至“owner-vrf@it.lists.it.agilent.com”。



     以下为原文

  Dear VEE-folk:

     I am a NEW(by) VEE programmer: How might one CONCATENATE two 2-D arrays, so that Element (0,0) of the second array is catenated to the END (Element (x,y)) of the first array?? VEE's concat(x,y) function provides only 1-D arrays!

Thanks!

Dean Coombs
Lumileds Lighting
San Jose, CA
408-435-4831
dean.coombs@lumileds.com
-----Original Message-----
From: Anderson, Scott [mailto:Scott.Anderson@adc.com]
Sent: Wednesday, July 02, 2003 12:22 PM
To: VEE vrf
Subject: [vrf] VRF SMTP Mail


Fellow VRFer's,

Currently I am sending email via SMTP with VEE.  But, now I have a need to be able to send via SMTP in VB.  I am having some issues getting it to work in VB (never used VB before).   With some help I did get the email to send through Outlook, but the machines this will be running on will not have outlook installed. Would anyone have an example or help for me.

Thanks again,

Scott Anderson
Quality Engineer I
ADC Worldwide Operations
Tel : 952.403.8311
Fax : 952.403.8520
MS : 535

scott.anderson@adc.com

Learn about ADC - The Broadband Company at www.ADC.com

Mailing Address:  P.O. Box 1101, Minneapolis, MN  55440-1101
Office Address:  1187 Park Place, Shakopee, MN  55379


---
You are currently subscribed to vrf as: dean.coombs@lumileds.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list,  email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".

---
You are currently subscribed to vrf as: [email=r***@soco.agilent.com]r***@soco.agilent.com[/email]
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list,  email "vrf@it.lists.it.agilent.com". 
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".

     以下为原文