bijlag email sending

Status
Niet open voor verdere reacties.
wakmen

wakmen

Terugkerende gebruiker
Lid geworden
3 jun 2011
Berichten
1.352
ik heb een programma gemaakt dat email verstuurd.
en nu wil ik dat ik bijlagen kan bijvoegen welke code kan ik daar voor gebruiken voor de bijlagen?:rolleyes:
 
Afgaand op de code die je hier hebt,

[CPP]message.Attachments.Add("Pad_Naar_Een_Bestand")[/CPP]
 
waar moet ik het precies plaatsen?
en kan je een voorbeeld geven van pad naar een bestand?
 
Laatst bewerkt:
Je hebt toch een pad van het bestand dat je wil versturen?
Bijv. C:\Users\Wakmen\Documents\Belangrijk_Document.docx

Je moet het onder

Dim message As New MailMessage()

en boven

smtp.Send(message)

zetten.
 
Laatst bewerkt door een moderator:
maar ik wil een button maken met het naam bijlag toevoegen.
en als ik er op klik dat ik dan een exe of een doc bestand kan kiezen.
zo als dit.
Knipsel.jpg
 
Even een snel voorbeeld:

[cpp]Dim open As New OpenFileDialog
open.Filter = "Word Document (*.doc;*.docx)|*.doc;*.docx|Toepassing (*.exe)|*.exe|Alle Bestanden (*.*)|*.*"
If open.ShowDialog = DialogResult.Ok Then
TextBox1.Text = open.FileName
End If[/cpp]

Snap je de code?
 
ja ik snap de code en als het niet lukt zal ik een bericht sturen:)
 
het lukt en als ik mijn email verzend en ik ga aar mijn email adres dan krijg ik geen bijlage of een foto!!!!
 
Ik neem aan dat je dit doet:

[CPP]message.Attachments.Add(TextBox1.Text)[/CPP]

?

Dat zou moeten werken.
 
dus de eerste code moet ik ontvangen door deze?


message.Attachments.Add(TextBox1.Text)
 
Ik weet niet wat jij met ontvangen bedoeld?

Het werkt zo:

  1. Je selecteert een bestand in de FileDialog;
  2. Dat bestand komt in TextBox1;
  3. Vervolgens wordt het bestand in TextBox1 meegezonden.

Snap je?

PS. Je kan misschien beter dit doen, omdat je dan niet per se iets hoeft te versturen.
[CPP]If TextBox1.Text <> "" Then message.Attachments.Add(TextBox1.Text)
[/CPP]
 
dan krijg ik de volgende probleem zie foto
probleem.PNG
 
Ik doelde dan ook op deze message:

[CPP]Dim message As New MailMessage()[/CPP]

Maar die heb jij in een ander blok staan, vandaar de fout.

Oplossing:

Verwijder Dim message As New MailMessage() En zet boven Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dit:

[CPP]Private message As New MailMessage()[/CPP]
 
Zo dus:

[CPP]
Private message As New MailMessage()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[/CPP]

[edit] Huh? Waar is je reactie gebleven??[/edit]
 
Laatst bewerkt:
is dat goed?
Knipsel.PNG
als het niet goed is wil je dan abu een foto maken :o
 
Prima, behalve dat het dit moet zijn:

[cpp]Dim open As New OpenFileDialog
open.Filter = "Word Document (*.doc;*.docx)|*.doc;*.docx|Toepassing (*.exe)|*.exe|Alle Bestanden (*.*)|*.*"
If open.ShowDialog = DialogResult.Ok Then
TextBox1.Text = open.FileName
End If[/cpp]

jij had:

[cpp]If open.ShowDialog = DialogResult.Ok Then
End If
TextBox1.Text = open.FileName
[/cpp]

(Je had ook message.Add(TextBox4.Text), maar dat moet dan natuurlijk message.Add(TextBox1.Text) zijn :))
 
ja textbox1 dient voor je email adres :)
en het werkt nog steeds niet als gaat goed maar ik ontvangt geen bijlage
 
Als TextBox1 je e-mailadres is, waarom heb je dan dit:

[CPP]If open.ShowDialog = DialogResult.Ok Then
TextBox1.Text = open.FileName
End If[/CPP]

Dat zou dan toch bijlage moeten zijn? :confused:
 
ik heb op het foto textbox 3 als bijlage ik heb het niet zo


If open.ShowDialog = DialogResult.Ok Then
TextBox1.Text = open.FileName
End If

ik heb dit

If open.ShowDialog = DialogResult.Ok Then
TextBox3.Text = open.FileName
End If
 
Laatst bewerkt:
Goed, kun je even je hele code plaatsen? Want ik snap niet waar het fout loopt met de gegeven informatie.
Graag ook vermelden in welke TextBox wat komt te staan.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan