vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Fragen & Antworten rund um sev-Komponenten
Re: sevMail - sevSMTP - AutoZIP zipt nicht 
Autor: Bernd Thill
Datum: 25.11.04 10:21
Hallo Dieter,

das mache ich! In der Variable pfaddat ist der gesammte Pfad und der Dateiname enthalten.

Hier der gesammte Code 1:

'Dateien wählen
Private Sub cmdAnhang_Click()
frmMailSchreib.MousePointer = 11
comDat.CancelError = True
On Error GoTo abr
comDat.Filter = "Dateiauswahl|*.*"
comDat.FileName = "*.*"
comDat.ShowOpen
If comDat.FileName <> "" Or comDat.FileName <> "*.*" Then
If pfaddat = "" Then
pfaddat = comDat.FileName
Else
pfaddat = pfaddat & "~" & comDat.FileName
End If
zipzahl = zipzahl + 1
If zipzahl = 1 Then
lblAnhang.Caption = "Es ist eine Datei zum Versand bereit!"
Else
lblAnhang.Caption = "Es sind " & zipzahl & " Dateien zum Versand bereit!"
End If
End If
frmMailSchreib.MousePointer = 0
Exit Sub
abr:
frmMailSchreib.MousePointer = 0
Exit Sub
End Sub

Gruß
Bernd Thill
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
sevMail - sevSMTP - AutoZIP zipt nicht1.218Bernd Thill24.11.04 09:54
Re: sevMail - sevSMTP - AutoZIP zipt nicht650ModeratorDieter24.11.04 19:23
Re: sevMail - sevSMTP - AutoZIP zipt nicht627Bernd Thill25.11.04 10:21
Re: sevMail - sevSMTP - AutoZIP zipt nicht710Bernd Thill25.11.04 10:30
Re: sevMail - sevSMTP - AutoZIP zipt nicht591ModeratorDieter25.11.04 13:16
Re: sevMail - sevSMTP - AutoZIP zipt nicht848Bernd Thill25.11.04 13:34
Re: sevMail - sevSMTP - AutoZIP zipt nicht599ModeratorDieter25.11.04 13:48
Re: sevMail - sevSMTP - AutoZIP zipt nicht631Bernd Thill25.11.04 13:54
Re: sevMail - sevSMTP - AutoZIP zipt nicht670ModeratorDieter25.11.04 14:05
Re: sevMail - sevSMTP - AutoZIP zipt nicht677ModeratorDieter25.11.04 18:33
Re: sevMail - sevSMTP - AutoZIP zipt nicht754Bernd Thill29.11.04 10:11

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-2025 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