主题：邮件发送

老师好，用帮助文件里的邮件发送程序，为什么不稳定，今天早晨可以发送，现在就不行。为什么程序不稳定。（我关闭了360杀毒和卫士仍然不能发送邮件），请问该怎么解决？

Dim m As New MailSender
m.Host = "smtp.163.com"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From ="feng@163.com"
m.To = "zong@sina.com.cn"
m.Title = "订单上报"
m.Content = "订单上报"
m.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.SendAsync()

m.SendAsync()

改成

m.Send

看报什么错。

用m.Send后，使用新浪的邮箱没有报错，但用网易的免费邮箱提示下面错误，请问怎么办

事务失败。 服务器响应为: DT:SPM 163 smtp1,C9GowAAH5Peq00dcdEtXAQ--.241S2 1548211115,please see http://mail.163.com/help/help_spam_16.htm?ip=122.97.179.133&hostid=smtp1&time=1548211115

我这样测试没问题，红色要匹配

Dim m As New MailSender
m.Host = "smtp.163.com"
m.Account = "13827126079@163.com"
m.Password = "6849338."
m.From ="13827126079@163.com"
m.To = "zong@sina.com.cn"
m.Title = "订单上报"
m.Content = "订单上报"
'm.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.Send
msgbox("OK")

你需要显示一个点的数据？

'
''--------------------------------------------------下面是动态生成Gun Error柱状图-----------------------------------------------------------------
Dim str As String
Dim str2,selected  As String
Dim kk As Integer
kk=0
selected=e.Form.Controls("ComboBox1").value
For Each na As String In DataTables("ONDBDS").GetValues("VN","[Blk]='" & selected & "'")
    Dim pan As WinForm.Panel'需要加上这一句
    Dim tabs As WinForm.TabControl
    str=na
    Forms("窗口1").Controls("TabControl1").TabPages.Add(str, str)
    pan = Forms("窗口1").CreateControl("pan" &  na,ControlTypeEnum.Panel)
    pan.Dock = System.Windows.Forms.DockStyle.fill
    Forms("窗口1").Controls("TabControl1").basecontrol.tabpages (str).addcontrol(pan)
    tabs= Forms("窗口1").CreateControl("tab" & na,ControlTypeEnum.TabControl)
    tabs.Dock = System.Windows.Forms.DockStyle.fill
    pan.addcontrol(tabs)
    Dim val1 As Integer=1
    Dim k1 As Integer=val1
    Dim ppp = tabs.tabpages.add("Summary","Summary")
    Dim Chart5 As WinForm.Chart
    Dim Series5 As WinForm.ChartSeries
    Dim tChart5 As Table = Tables("ONDBDS")
    Chart5 = New ChartBuilder
    Chart5.ChartType = ChartTypeEnum.Bubble
    Chart5.SeriesList.Clear() '清除图表原来的图系
    Chart5.Dock = System.Windows.Forms.DockStyle.fill
    Chart5.HeaderText=selected & " " & na & "  Timing"
    Chart5.AxisX.AnnoRotation = - 25
    Dim tt As Table = Tables("ONDBDS")
    Dim max2 As Date = tt.Compute("max(ODate)","Blk= '" & selected & "'")
    Dim min2 As Date = tt.Compute("min(ODate)","Blk= '" & selected & "'")
    Dim ii As Integer = 0
    Dim dd = min2
Chart5.AxisX.Major = 1
Chart5.AxisX.MinorTick = False
Chart5.AxisX.Max = (max2-min2).Totaldays
Chart5.AxisX.Min = 0
    For Each rChart5  As Col In tChart5.Cols
        If rChart5.Name<>"ODate" And rChart5.Name<>"Ofcha" And  rChart5.Name<>"Blk" And rChart5.Name<>"VN" Then
            Series5 = Chart5.SeriesList.Add()
            Series5.LinePattern = LinePatternEnum.None '不显示数据点之间的联线
            series5.Text = rchart5.Name
            Series5.length = (max2-min2).Totaldays + 1
        End If
    Next
Dim max = 0
    Do While dd <= max2
        Dim fdrr = tt.DataTable.find("VN='" & na & "' and ODate= #" & dd & "# and Blk= '" & selected & "'")
        Dim jj As Integer = 0
        For Each rChart5  As Col In tChart5.Cols
            If rChart5.Name<>"ODate" And rChart5.Name<>"Ofcha" And  rChart5.Name<>"Blk" And rChart5.Name<>"VN" Then
                Series5 = Chart5.SeriesList(jj)
                If fdrr Is Nothing Then
                    Series5.X(ii) = ii
                    Series5.Y(ii) = 0
                    Series5.Y1(ii) = 1
                Else
If max < (fdrr(rChart5.Name)) Then
max = (fdrr(rChart5.Name))
End If
                    Series5.X(ii) = ii
                    Series5.Y(ii) = (fdrr(rChart5.Name))
                    Series5.Y1(ii) = 1
Chart5.AxisY.Max = max + 2
                End If
                jj += 1
            End If
        Next
        If ii Mod k1 = 0 Then
            Chart5.AxisX.SetValueLabel(ii, dd) '指定字符表示
        Else
            Chart5.AxisX.SetValueLabel(ii, "")
        End If
        ii+= 1
        dd = dd.adddays(1)
    Loop
    Chart5.SeriesList(0).Text="Opl"
    Chart5.SeriesList(0).FillColor=Color.Green
    Chart5.SeriesList(1).Text="CStan"
    Chart5.SeriesList(1).FillColor=Color.Yellow
    Chart5.SeriesList(2).Text="Dbil"
    Chart5.AxisX.AnnoWithLabels = True
    Chart5.LegendVisible = True '显示图列
    Chart5.LegendCompass= CompassEnum.South
    Chart5.Stacked = True
    ppp.addcontrol(Chart5)
Next

条形图就是这样的啊。清楚明白什么是条形图。

http://www.foxtable.com/webhelp/scr/0980.htm

http://www.foxtable.com/webhelp/scr/0990.htm