vba - Wrong number of arguments when sending Email with AutoExec -


i'm trying send email through function downloaded c.pearson. when try make work error: "the expression entered has function containing wrong number of arguments."

here's code i'm using:

option explicit option compare text  function sendemail(subject string, _         fromaddress string, _         toaddress string, _         mailbody string, _         smtp_server string, _         optional bodyfilename string, _         optional attachments variant = empty) boolean  dim mailmessage cdo.message dim n long dim fnum integer dim s string dim body string dim recips() string dim recip string dim nrecip long  ' ensure required parameters present , valid. if len(trim(subject)) = 0     sendemail = false     exit function end if  if len(trim(fromaddress)) = 0     sendemail = false     exit function end if  if len(trim(smtp_server)) = 0     sendemail = false     exit function end if  ' clean addresses recip = replace(toaddress, space(1), vbnullstring) recips = split(recip, ";")  nrecip = lbound(recips) ubound(recips)     on error resume next     ' create cdo message object.     set mailmessage = createobject("cdo.message")     if err.number <> 0         sendemail = false         exit function     end if     err.clear     on error goto 0     mailmessage         .subject = subject         .from = fromaddress         .to = recips(nrecip)         if mailbody <> vbnullstring             .textbody = mailbody         else             if bodyfilename <> vbnullstring                 if dir(bodyfilename, vbnormal) <> vbnullstring                     ' import text of body file bodyfilename                     fnum = freefile                     s = vbnullstring                     body = vbnullstring                     open bodyfilename input access read #fnum                     until eof(fnum)                         line input #fnum, s                         body = body & vbnewline & s                     loop                     close #fnum                     .textbody = body                 else                     ' bodyfilename not found.                     sendemail = false                     exit function                 end if             end if ' mailbody , bodyfilename both vbnullstring.         end if          if isarray(attachments) = true             ' attach files in array.             n = lbound(attachments) ubound(attachments)                 ' ensure attachment file exists , attach it.                 if attachments(n) <> vbnullstring                     if dir(attachments(n), vbnormal) <> vbnullstring                         .addattachment attachments(n)                     end if                 end if             next n         else             ' ensure file exists , if so, attach message.             if attachments <> vbnullstring                 if dir(cstr(attachments), vbnormal) <> vbnullstring                     .addattachment attachments                 end if             end if         end if         .configuration.fields             ' set smtp configuration             .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2             .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp_server             .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25             .update         end          on error resume next         err.clear         ' send message         .send         if err.number = 0             sendemail = true         else             sendemail = false             exit function         end if     end next nrecip  end function   public sub emailsendsub() sendemail ("my email", "spetsnaz307@gmail.com", "spetsnaz307@hotmail.co.nz","hello", smtp_server:="smtp.gmail.com", "d:\other\modemail.bas", attachments:=empty)  end sub

i have macro named 'autoexec', , code in module called 'modemail'.

my macro's action runcode , function name is: 'sendemail()'

how can fix error? i've been playing around code days , can't seem come solution.

note: my port 25 blocked isp, cause particular error?

thanks in advance help. :)

as can see function declaration in vba code, function expects supply subject line, fromaddress, toaddress, etc., arguments. if macro calling sendemail() (without arguments) problem because you're not telling function send, or whom.

the function call needs more like

sendemail("this subject", "sender@example.com", "recipient@example.com", ...

Comments

Post a Comment

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

running rails generate controller foo home results in: class foocontroller < application controller def home end end (there's nothing on line in actual file, blank line) is there purpose blank line? it's common use newline indicate end of line, last line. many editors (like vi, use) add in newline silently. consensus text files (especially in unix world) should end in newline, , there have been problems historically if wasn't present. why should text files end newline? the tool used count lines in file "wc" counts newlines in file, without trailing newline show 3 instead of 4. it improves readability of templates used in generator. consider: https://github.com/rails/rails/blob/master/railties/lib/rails/generators/rails/controller/templates/controller.rb to remove trailing newline, template have last line of: end<% end -%> instead of: end <% end -%> that seems less readable me. the discussion below refers
Read more

keyboard - Smiles and long press feature in Android -

i've created android keyboard. how add features inserting smilies, , using long keypresses display symbols? to create long-press behavior allows select several options pop-up menu, follow guide (specifically pop-up menu section): http://developer.android.com/guide/topics/ui/menus.html smileys (also known emoticons) combination of keys, understood programs , parsed same way. have do, when clicks smiley face on keyboard, simulate pressing of key combination matching emoticon. example, when clicks smiley, should simulate key presses ':' , ')' :). here's list of emoticons: http://en.wikipedia.org/wiki/list_of_emoticons
Read more

node.js - Bad Request - node js ajax post -

i'm using express 3.0 , node v0.11.0. have button submits form , i'm using ajax post data json object node server. client code is: $('#contact').submit(function(e) { console.log('submit called'); var formdata = json.stringify($('form').serializeobject()); console.log(formdata); $.ajax({ url: "http://localhost:3000/savedata/", type: "post", datatype: 'json', data: {objectdata: formdata}, contenttype: "application/json", complete: function() { console.log('process complete'); }, success: function(data) { console.log('process sucess'); }, error: function() { console.log('process error'); }, }); return false; }); then on server: var express = require('express'); var app = express(); app.set('views', __dirname + '/views'); app.set('view engine', 'jade'); app.use(express.bodyparser());
Read more