Login  
Search All Forums
Dart Home | PowerTCP Mail for ActiveX | Custom Development Reply | PowerTCP Mail for ActiveX Topics | Forums   
AuthorForum: PowerTCP Mail for ActiveX
Topic: Problem with Attachment
User169

Posts: 2
Member Since: 03/21/02
posted March 21, 2002 7:52 AM

Hi
I send Attachtment with the SMTP-OCX under Access XP. Because the Attachment become the extension EMF.Thats my VBA Code. Whats wrong?

Private Sub Befehl6_Click()

On Error GoTo ErrorHandler

  Dim Msg As New Message
  Dim OldMsg As New Message

  OldMsg.Load "C:\WarezListe.doc"
  Msg.To.Add "kontakt@thomaswendt.de"
  Msg.Header.Add msgSubject, "Merger Information"
  Msg.AddText "Including two messages from Bill related to the issue."
  Msg.AddText "Scheiß Software ÄÖÜ äöü ßßß"
  Msg.AddMessage "C:\Fehler.txt"
  Msg.AddMessage OldMsg.Content
Smtp1.Login "smtp.test.de", , "myusername", "mypassword" ' start the mail session
  Smtp1.Message = Msg ' set message
  Smtp1.Send ' send message
  Smtp1.Logout ' end session
  MsgBox "Message Sent!" ' no errors generated gets us here
  Exit Sub
ErrorHandler:
  If Err.Number = 12014 Then
    Smtp1.Logout
    Beep
  Else
    MsgBox Err.Description, vbOKOnly Or vbCritical, "Error: " & Err.Number
  End If
End Sub
K M Drake



From: Utica, NY USA
Posts: 3406
Member Since: 07/14/00
posted March 21, 2002 6:27 PM


Hi,
I'm sorry, I do not understand what you are asking. What problem are you seeing or what error is raised?
Thanks,
-ken

K M Drake
Dart Tech Support
User169

Posts: 2
Member Since: 03/21/02
posted March 21, 2002 10:41 PM

Hi

I will send attachments with extension EXE, DOC, XLS, ore anything.
But when i send the attachment with name word.doc to the email adress and the user open the attachment, than have the attachment the name ATT00085.eml and not WORD.DOC

Thomas

Sorry. My english writing is not so good.
K M Drake



From: Utica, NY USA
Posts: 3406
Member Since: 07/14/00
posted March 22, 2002 12:11 PM


Hi,
I just created a message with 2 attachments:
1) a doc
2) a message with a doc attachment
The resulting message was fine.
Please get the latest update:
http://www.dart.com/downloads/update.exe
and see if the code below works for you.
Thanks,
-ken

  Smtp1.Message.To.Add toAddress
  Smtp1.Message.From = fromAddress
  Smtp1.Message.Subject = "Test Message"
  Smtp1.Message.AddText "Test Message"
  Smtp1.Message.AddMessage "messageWithAttach.eml"
  Smtp1.Message.AddAttachment "test.doc"

K M Drake
Dart Tech Support
Reply | PowerTCP Mail for ActiveX Topics | Forums   
This site is powered by PowerTCP WebServer Tool PowerTCP WebServer for ActiveX