vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Eingaben als TXT speichern 
Autor: p24
Datum: 19.10.16 09:40

Hallo zusammen,

ich habe mir ein kleines Tool geschrieben, damit ich nicht jeden Tag eine Email über Outlook schreiben muss.
Ich muss dazu sagen, dass ich leider nicht sehr viel Erfahrung in VB habe, es aber mutig waage, evtl. ist jemand
so nett und hilft mir, ich würde mich wirklich wirklich sehr freuen.

Es geht um Folgendes Problem:

http://panorama24.eu/programm.jpg

Ich sende jeden Tag kurz vor Feierabend eine E-Mail an den Transportdienstleister GLS mit einer Plombennummer
und der Anzahl der jeweiligen Paletten. Ich würde gerne eine Art Palettenkonto entweder als Text oder sogar
mit kleiner Gui haben. Es müssten immer wenn eine E-Mail gesendet wird die Dateien paralell als txt Datei
gespeichert (angehängt werden in neuer Zeile) mit dem dazu gehörigen Datum gespeichert werden.
Ich kriege es leider nicht so wirklich hin. Richtig gut wäre, wenn man das ganze statt mit Excel oder dem Editor
auch noch auslesen lassen könnte in dem Mini Programm.

Hier mein Quellcode:

Imports System.Net.Mail
 
Public Class Form1
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles senden.Click
 
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "*********"
myCredentials.Password = "*********"
 
Msg.IsBodyHtml = False
 
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.EnableSsl = True 'SSL aktivieren
mySmtpsvr.Host = "smtp.strato.de"
mySmtpsvr.Port = 587
 
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
 
Try
Msg.From = New MailAddress("*********")
ProgressBar1.Value = 10
Msg.To.Add("*********")
Msg.CC.Add(ccempfaender.Text)
ProgressBar1.Value = 20
Msg.Subject = "Plombennummer für Wechselbrücke Kundennummer: *********"
ProgressBar1.Value = 30
Msg.Body = "Hallo, wir möchten Ihnen die heutige Plombennummer mitteilen, diese" & _
  "lautet: " & (Plombennummer.Text) & ". Außerdem haben wir auf der" & _
  "Wechselbrücke folgende Anzahl an Paletten: " & "Europaletten: " & ( _
  Euro.Text) & ", Einwegpaletten: " & (Einweg.Text) & " verladen. Über eine" & _
  "schnelle Abwicklung würden wir uns sehr freuen und verbleiben mit den besten" & _
  "Grüßen! Panorama24 Lagerteam. Für dringliche Fragen, stehen wir Ihnen gerne" & _
  "unter folgender Rufnummer zur Verfügung: *********"
ProgressBar1.Value = 80
mySmtpsvr.Send(Msg)
ProgressBar1.Value = 100
MsgBox("Erfolgreich - schönen Feierabend", MsgBoxStyle.Information, _
  Title:="Information")
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler 
' auftritt wird eine MsgBox angezeigt
End Try
 
End Sub
 
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Eingaben als TXT speichern3.544p2419.10.16 09:40
Re: Eingaben als TXT speichern1.702effeff19.10.16 15:54
Re: Eingaben als TXT speichern1.674p2419.10.16 16:32
Re: Eingaben als TXT speichern1.585effeff20.10.16 10:22
Re: Eingaben als TXT speichern1.591p2419.10.16 16:43
Re: Eingaben als TXT speichern1.760p2421.10.16 12:08
Re: Eingaben als TXT speichern1.614effeff24.10.16 15:32
Re: Eingaben als TXT speichern1.482p2410.11.16 08:59
Re: Eingaben als TXT speichern1.516effeff22.11.16 16:15
Re: Eingaben als TXT speichern1.468p2423.11.16 11:30
Re: Eingaben als TXT speichern1.503sv0001023.11.16 20:18
Re: Eingaben als TXT speichern1.483p2424.11.16 08:31
Re: Eingaben als TXT speichern1.473p2424.11.16 09:04

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel